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

438 AppendixA
SAMPLE PROGRAMS
COBOL
MOVE 3 TO NUMSPECS
CALL "VCHANGEFIELD" USTNG COMAREA
FIELDSPES
NUMSPECS
IF CSTATUS OF COMAREA NOT = 0
MOVE "Y" TO STOP-NOW
MOVE
"**** Paragraph: A-500-COLLECT-TRANSACTIONS - Field
"Type Updates"
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE.
IF STOP-NOW NOT = "Y"
*****
***** Load window message.
*****
MOVE 79 TO MSGBUFLEN
MOVE
"Fill in Deduction Transaction according to worksheet."
TO MSGBUF
CALL "VPUTWINDOW" USING COMAREA
MSGBUF
MSGUFLEN
IF CSTATUS OF COMAREA NOT = 0
MOVE "Y" TO STOP-NOW
MOVE
"**** Paragraph: A-500-COLLECT-TRANSACTIONS - Window
<…sc><…x>
<ex><esc>
"Load"
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE.
IF STOP-NOW NOT = "Y"
*****
***** Initialize form.
*****
CALL "VINITFORM" USING COMAREA
IF CSTATUS OF COMAREA NOT = 0
MOVE "Y" TO STOP-NOW
MOVE
"**** Paragraph: A-500-COLLECT-TRANSACTIONS - Form I
"nit "
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE.
IF STOP-NOW NOT = "Y"
*****