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

440 AppendixA
SAMPLE PROGRAMS
COBOL
IF CSTATUS OF COMAREA NOT = 0
MOVE "Y" TO STOP-NOW
MOVE
"**** Paragraph: B-100-READ-EDIT-AND-FILE - Data Edit
" "
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE
ELSE
*****
***** Determine if edit errors detected.
*****
IF NUMERRS OF COMAREA < 1
MOVE "N" TO FOUND-DATA-ERRORS.
IF STOP-NOW NOT = "Y"
AND DONE-WITH-TRANSACTIONS NOT = "Y"
AND FOUND-DATA-ERRORS NOT = "Y"
*****
***** Finish form data.
*****
CALL "VFINISHFORM" USING COMAREA
IF CSTATUS OF COMAREA NOT = 0
MOVE "Y" TO STOP-NOW
MOVE
"**** Paragraph: B-100-READ-EDIT-AND-FILE - Data Fini
"shing"
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE
ELSE
*****
***** Determine if data finishing errors detected.
*****
IF NUMERRS OF COMAREA > 0
MOVE "Y" TO FOUND-DATA-ERRORS.
IF STOP-NOW NOT = "Y"
AND DONE-WITH-TRANSACTIONS NOT = "Y"
*****
***** Do we have a transaction that can be filed?
*****
IF FOUND-DATA-ERRORS NOT = "Y"
IF LASTKEY OF COMAREA = 0
*****
***** Get transaction from form and file it.