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

Appendix A 427
SAMPLE PROGRAMS
SPL
$PAGE " COLLECT"
<<****************************************************************>>
<< >>
<< COLLECT >>
<< >>
<<****************************************************************>>
PROCEDURE COLLECT;
BEGIN
LOGICAL
FIRST’TIME := TRUE
;
BYTE ARRAY
SAVED’FORM’NAME (0:NAMELEN-1)
;
DO’COLLECT’LABELS;
COM’MODE := COLLECT’MODE;
COM’DELETEFLAG := FALSE;
DO << UNTIL COM’NFNAME <> EXIT AND COM’DO <> NORM >>
BEGIN
IF COM’LASTKEY=ENTERKEY OR COM’LASTKEY=NEXTKEY THEN
IF COM’REPEATOPT=NOREPEAT AND COM’NFOPT <> NORM OR
COM’REPEATOPT=REPEATAPP THEN
BEGIN
COM’SHOWCONTROL.(10:1) := 1;
<< TO SUPPRESS KEYBOARD ENABLE >>
VSHOWFORM (COMAREA);
COM’SHOWCONTROL.(10:1) := 0;
CHECK’ERROR;
END;
VGETNEXTFORM (COMAREA);
IF FIRST’TIME AND COM’STATUS <> 0 THEN << IS FIRST TIME >>
BEGIN
VERRMSG (COMAREA, MESSAGE’BUF, MESSAGE’BUF’LEN, MSGLEN);
ERRORS := TRUE; << DONT WANT TO CLOSE BATCH IF ERROR! >>
RETURN;
END;
CHECK’ERROR;
FIRST’TIME := FALSE;
VINITFORM (COMAREA);
CHECK’EDIT’ERROR;
IF NOT ERRORS THEN
FORMAT’STATUS’LINE;
DO << WHILE ERRORS >>
BEGIN