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

Appendix A 477
SAMPLE PROGRAMS
TRANSACT
PROC VINITFORM((COMAREA));
IF (CSTATUS) <> (ZERO) THEN
DO
LET (STOP-NOW) = (TRUE);
MOVE (ERROR-LOCATION) = "**** procedure: Collect Transactions"
" - Form Init";
PERFORM GET-ERROR-MESSAGE;
RETURN;
DOEND;
<< Show form >>
PROC VSHOWFORM((COMAREA));
IF (CSTATUS) <> (ZERO) THEN
DO
LET (STOP-NOW) = (TRUE);
MOVE (ERROR-LOCATION) = "**** procedure: Collect Transactions"
" - Form Display";
PERFORM GET-ERROR-MESSAGE;
RETURN;
DOEND;
<< Setup and loop on transaction until it can be filed >>
LET (FOUND-DATA-ERRS) = (TRUE);
LEVEL;
IF (FOUND-DATA-ERRS) = (FALSE) THEN
END(LEVEL)
ELSE IF (STOP-NOW) = (TRUE) THEN
END(LEVEL)
ELSE IF (DONE-WITH-TRANS) = (TRUE) THEN
END(LEVEL)
ELSE
DO
PERFORM READ-EDIT-FILE-TRANSACTION;
END;
DOEND;
RETURN;
SETUP-FOR-WORK:
<<***********>>
LET (ZERO) = 0;
LET (ONE) = 1;
LET (EIGHT) = 8;
LET (STOP-NOW) = (FALSE);
LET (DONE-WITH-TRANS) = (FALSE);
LET (NBR-TXN-COLLECT) = (ZERO);
<< Init Comarea >>
<< Set language to SPL. This is the default language if TRANSACT
opens the formfile. However, in this language, all character
arrays must be passed as byte addresses, ie %(NAME) >>
LET (LANGUAGE) = 3;
LET (COMAREALEN) = 60;