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

Appendix A 473
SAMPLE PROGRAMS
TRANSACT
IF (STOP-NOW) = (TRUE) THEN
END(LEVEL)
ELSE IF (DONE-WITH-TRANS) = (TRUE) THEN
END(LEVEL)
ELSE
DO
PERFORM COLLECT-TRANSACTIONS;
END; <<loop to next transaction>>
DOEND;
PERFORM CLEANUP-AFTER-WORK;
DISPLAY "Deduction transactions collected this sesion =":
NBR-TXN-COLLECT;
IF (STOP-NOW) = (TRUE) THEN
PERFORM DISPLAY-SYSTEM-ERROR;
EXIT;
DISPLAY-SYSTEM-ERROR:
<<*****************>>
DISPLAY "**** Transaction collection facility detected system "
"error at: ":
ERROR-LOCATION:
"**** The error message returned is:",line=1:
"****",line=1:
MSGBUF;
RETURN;
CLEANUP-AFTER-WORK:
<<***************>>
FILE(CLOSE) TXNFILE;
LET (CSTATUS) = (ZERO);
PROC VCLOSEFORMF((COMAREA));
LET (CSTATUS) = (ZERO);
PROC VCLOSETERM((COMAREA));
RETURN;
GET-ERROR-MESSAGE:
<<**************>>
LET (MSGBUFLEN) = (MAXWINDOWLEN);
MOVE (MSGBUF) = " ";
PROC VERRMNSG((COMAREA),%(MSGBUF),(MSGBUFLEN),(MSGBUFLEN));
RETURN;
PROMPT-OPERATOR:
<<************>>
PERFORM GET-ERROR-MESSAGE;
PROC VPUTWINDOW((COMPAREA),%(MSGBUF),(MSGBUFLEN));
IF (CSTATUS) <> (ZERO) THEN
DO
LET (STOP-NOW) = (TRUE);
MOVE (ERROR-LOCATION) = "**** procedure: Prompt Operator - "
"Window Load";
PERFORM GET-ERROR-MESSAGE;
RETURN;