HP Data Entry and Forms Management System (VPLUS) Reference Manual (32209-90024)

424 AppendixA
SAMPLE PROGRAMS
SPL
IF COM’CFNAME <> COM’NFNAME, (15) THEN
COM’REPEATOPT := NORM; << CLEAR SINCE NOT REPT >>
IF COM’LASTKEY = REFRESHKEY THEN
MOVE COM’NFNAME := "$REFRESH ";
VGETNEXTFORM (COMAREA);
CHECK’ERROR;
LOCAL’COM’REC := COM’RECNUM;
END;
IF NOT ERRORS THEN
FORMAT’STATUS’LINE;
DO << WHILE ERRORS >>
BEGIN
ERRORS := FALSE;
VSHOWFORM (COMAREA);
CHECK’ERROR
COM’SHOWCONTROL := 0; << RESET JUST IN CASE >>
VREADFIELDS (COMAREA);
CHECK’ERROR;
if com’lastkey <> 0 then
if com’term’type = 15 or << HP3075 >>
com’term’type = 16 then << HP3076 >>
if com’keyboard’type = 1 then << Numeric keyboard >>
com’lastkey := com’lastkey - 16;
IF NOT ERRORS THEN
CASE COM’LASTKEY OF
BEGIN
<< ENTERKEY: >>
BEGIN
DIRECTION := FORWARDS;
VFIELDEDITS (COMAREA);
CHECK’EDIT’ERROR;
IF NOT ERRORS THEN
BEGIN
$$VFINISHFORM (COMAREA);
CHECK’EDIT’ERROR;
IF COM’REPEATOPT=NOREPEAT AND COM’NFOPT <> NORM
OR COM’REPEATOPT=REPEATAPP THEN
BEGIN
COM’SHOWCONTROL.(10:1) := 1;
VSHOWFORM (COMAREA);
COM’SHOWCONTROL. (10:1) := 0;
CHECK’ERROR;
END;