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

426 AppendixA
SAMPLE PROGRAMS
SPL
COM’SHOWCONTROL.(10:1) := 0;
CHECK’ERROR;
END;
END;
<< COLLECTKEY: >>
RETURN;
<< EXIT: >>
RETURN;
END; << CASE >>
END
UNTIL NOT ERRORS AND COM’LASTKEY <> PRINTKEY;
END << IN NOT COM’DELETEFLAG >>
ELSE << REC WAS DELETED >>
COM’RECNUM := IF DIRECTION = BACKWARDS THEN COM’RECNUM - 1D
ELSE COM’RECNUM + 1D;
END; << WHILE TRUE DO >>
END; << BROWSE >>