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

Appendix A 425
SAMPLE PROGRAMS
SPL
IF NOT ERRORS THEN
BEGIN
VWRITEBATCH (COMAREA);
CHECK’ERROR;
IF NOT ERRORS THEN
COM’RECNUM := COM’RECNUM+1D;
END;
END;
END;
<< HEADKEY: >>
BEGIN
DIRECTION := FORWARDS;
COM’RECNUM := 0D;
COM’REPEATOPT := COM’NFOPT := NORM;
END;
<< DELETEKEY: >>
BEGIN
DIRECTION := FORWARDS;
COM’DELETEFLAG := TRUE;
VWRITEBATCH (COMAREA);
CHECK’ERROR;
COM’DELETEFLAG := FALSE;
IF NOT ERRORS THEN
COM’RECNUM := COM’RECNUM + 1D;
COM’REPEATOPT := COM’NFOPT := NORM;
END;
<< PRINTKEY: >>
BEGIN
VPRINTFORM (COMAREA, UNDERLIINE, PAGE’EJECT);
CHECK’ERROR;
END;
<< REFRESHKEY: >>
;
<< PREVKEY: >>
BEGIN
DIRECTION := BACKWARDS;
COM’RECNUM := COM’RECNUM - 1D;
END;
<< NEXTKEY: >>
BEGIN
DIRECTION := FORWARDS;
COM’RECNUM := COM’RECNUM + 1D;
IF COM’REPEATOPT=NOREPEAT AND COM’NFOPT <> NORM
OR COM’REPEATOPT=REPEATAPP THEN
BEGIN
COM’SHOWCONTROL.(10:1) := 1;
VSHOWFORM (COMAREA);