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

474 AppendixA
SAMPLE PROGRAMS
TRANSACT
DOEND;
PROC VSHOWFORM((COMAREA));
IF (CSTATUS) <> (ZERO) THEN
DO
LET (STOP-NOW) = (TRUE);
MOVE (ERROR-LOCATION) = "**** procedure: Collect Transactions"
" - Display Update";
PERFORM GET-ERROR-MESSAGE;
DOEND;
RETURN;
READ-EDIT-FILE-TRANSACTION:
<<***********************>>
PROC VREADFIELDS((COMAREA));
IF (CSTATUS) <> (ZERO) THEN
DO
LET (STOP-NOW) = (TRUE);
MOVE (ERROR-LOCATION) = "**** procedure: Read, Edit, and File"
" - Terminal Read";
PERFORM GET-ERROR-MESSAGE;
RETURN;
DOEND;
<< Determine if operator wants to stop transaction collection >>
IF (LASTKEY) = (EIGHT) THEN
DO
LET (DONE-WITH-TRANS) = (TRUE);
RETURN;
DOEND;
IF (LASTKEY) <> (ZERO) THEN
<< Operator pressed some key other than Enter or Exit
so clear data error flag to break loop >>
DO
LET (FOUND-DATA-ERRS) = (FALSE);
RETURN;
DOEND;
<< Edit data >>
PROC VFIELDEDITS((COMAREA));
IF (CSTATUS) <> (ZERO) THEN
DO
LET (STOP-NOW) = (TRUE);
MOVE (ERROR-LOCATION) = "**** procedure: Read, Edit, and"
" File - data Edit";
PERFORM GET-ERROR-MESSAGE;
RETURN;
DOEND;
<< Determine if edit errors >>
IF (NUMERRS) < (ONE) THEN