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

Appendix A 423
SAMPLE PROGRAMS
SPL
$PAGE " BROWSE"
<<****************************************************************>>
<< >>
<< BROWSE >>
<< >>
<<****************************************************************>>
PROCEDURE BROWSE;
BEGIN
EQUATE
FORWARDS = 1
,BACKWARDS = -1
;
INTEGER
PAGE’EJECT := %61
,UNDERLINE := 1
,DIRECTION
;
DOUBLE
LOCAL’COM’REC
;
DO’BROWSE’LABELS;
LOCAL’COM’REC := COM’RECNUM;
COM’RECNUM := COM’RECNUM - 1D;
DIRECTION := BACKWARDS;
WHILE TRUE DO << UNTIL EXIT OR COLLECTKEY >>
BEGIN
IF COM’NUMRECS = 0D THEN
RETURN;
IF COM’RECNUM = LAST’REC’NUM THEN
BEGIN
ENTRY’ERROR (NO’NEXT’RECS);
COM’RECNUM := COM’RECNUM - 1D;
DIRECTION := BACKWARDS;
END;
IF COM’RECNUM < 0D THEN
BEGIN
ENTRY’ERROR (NO’PREV’RECS);
COM’RECNUM := 0D;
DIRECTION := FORWARDS;
END;
VREADBATCH (COMAREA);
CHECK’ERROR;
IF COM’DELETEFLAG = FALSE THEN << NOT DELETED >>
BEGIN
IF COM’RECNUM <> LOCAL’COM’REC OR COM’LASTKEY = REFRESHKEY THEN
BEGIN
IF DIRECTION = BACKWARDS OR COM’LASTKEY = REFRESHKEY THEN
COM’REPEATOPT := COM’NFOPT := NORM
ELSE << MUST BE FORWARDS >>