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

Appendix A 439
SAMPLE PROGRAMS
COBOL
***** Show form.
*****
CALL "VSHOWFORM" USING COMAREA
IF CSTATUS OF COMAREA NOT = 0
MOVE "Y" TO STOP-NOW
MOVE
"**** Paragraph: A-500-COLLECT-TRANSACTIONS - Form D
"isplay"
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE.
IF STOP-NOW NOT = "Y"
*****
***** Setup and loop on transaction until it can be filed.
*****
MOVE "Y" TO FOUND-DATA-ERRORS
PERFORM B-100-READ-EDIT-AND-FILE
UNTIL FOUND-DATA-ERRORS = "N"
OR STOP-NOW = "Y"
OR DONE-WITH-TRANSACTIONS = "Y".
B-100-READ-EDIT-AND-FILE.
*****
***** Read form.
*****
CALL "VREADFIELDS" USING COMAREA.
IF CSTATUS OF COMAREA NOT = 0
MOVE "Y" TO STOP-NOW
MOVE
"**** Paragraph: B-100-READ-EDIT-AND-FILE - Terminal Rea
"d"
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE.
IF STOP-NOW NOT = "Y"
*****
***** Determine if operator wants to stop transaction collection.
*****
IF LASTKEY OF COMAREA = 1
MOVE "Y" TO DONE-WITH-TRANSACTIONS.
IF STOP-NOW NOT = "Y"
AND DONE-WITH-TRANSACTIONS NOT = "Y"
*****
***** Edit data read from terminal
*****
CALL "VFIELDEDITS" USING COMAREA