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

Appendix A 429
SAMPLE PROGRAMS
SPL
END;
END;
END;
END;
<< HEADKEY: >>
BEGIN
COM’REPEATOPT := NORM;
COM’NFOPT := NORM;
MOVE COM’NFNAME := "$HEAD ";
END;
<< DELETEKEY: >>
ENTRY’ERROR (DELETE’NOT’DEFINED);
<< PRINTKEY: >>
BEGIN
VPRINTFORM (COMAREA, UNDERLINE, PAGE’EJECT);
CHECK’ERROR;
END;
<< REFRESHKEY: >>
MOVE COM’NFNAME := "$REFRESH ";
<< PREVKEY: >>
ENTRY’ERROR (PREV’NOT’ALLOWED);
<< NEXTKEY: >>
BEGIN
IF COM’REPEATOPT = NORM THEN
ENTRY’ERROR (NOT’REPEATING)
ELSE
COM’REPEATOPT := NORM;
END;
<< BROWSEKEY: >>
BEGIN
IF NOT BATCH THEN
ENTRY’ERROR (NO’BATCH)
ELSE
IF COM’NUMRECS = 0D THEN
ENTRY’ERROR (NO’BATCH’RECS)
ELSE
BEGIN
LAST’REC’NUM := COM’RECNUM;
MOVE SAVED’FORM’NAME := COM’CFNAME,(NAMELEN);
COM’MODE := BROWSE,MODE;
COM’REPEATOPT := COM’NFOPT := NORM;
COM’SHOWCONTROL.(14:1):=1;
BROWSE;
COM’SHOWCONTROL.(14:1):=0;
COM’MODE := COLLECT’MODE;
MOVE COM’NFNAME := SAVED’FORM’NAME,(NAMELEN);