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

430 AppendixA
SAMPLE PROGRAMS
SPL
COM’RECNUM := LAST’REC’NUM;
COM’REPEATOPT := COM’NFOPT := NORM;
COM’DELETEFLAG := FALSE; << IF NO RECS >>
IF COM’LASTKEY = EXITKEY THEN
BEGIN
MOVE COM’CFNAME :=
SAVED’FORM’NAME,(NAMELEN);
RETURN;
END;
DO’COLLECT’LABELS;
END;
END; << BROWSEKEY >>
<< EXIT: >>
RETURN;
END; << CASE COM’LASTKEY >>
END; << IS COM’DBUFLEN > O? >>
END
UNTIL NOT ERRORS AND COM’LASTKEY <> PRINTKEY;
END
UNTIL COM’NFNAME = "$END " AND
COM’REPEATOPT = NORM;
END; << COLLECT >>