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

Appendix A 441
SAMPLE PROGRAMS
COBOL
*****
MOVE SPACES TO DATABUF
MOVE 200 TO DATABUFLEN
CALL "VGETBUFFER" USING COMAREA
DATABUF
DATABUFLEN
IF CSTATUS OF COMAREA NOT = 0
MOVE "Y" TO STOP-NOW
MOVE
"**** Paragraph: B-100-READ-EDIT-AND-FILE - Dat
"a Get"
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE
ELSE
WRITE TXN-REC FROM DATABUF
ADD 1 TO NBR-TXN-COLLECTED.
IF STOP-NOW NOT = "Y"
AND DONE-WITH-TRANSACTIONS NOT = "Y"
*****
***** Do we need to prompt the operator to correct errors?
*****
IF FOUND-DATA-ERRORS = "Y"
IF LASTKEY OF COMAREA = 0
PERFORM B-200-PROMPT-OPERATOR.
IF STOP-NOW NOT = "Y"
AND DONE-WITH-TRANSACTIONS NOT = "Y"
*****
***** Do we need to refresh the display?
*****
IF FOUND-DATA-ERRORS = "Y"
IF LASTKEY OF COMAREA NOT = 0
*****
***** The operator pressed some key other than Enter
***** or Exit so clear data error flag to break loop.
*****
MOVE "N" TO FOUND-DATA-ERRORS.
B-200-PROMPT-OPERATOR.
*****