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

442 AppendixA
SAMPLE PROGRAMS
COBOL
***** Get message text associated with first field flagged
***** with a data error.
*****
PERFORM Z-100-GET-ERROR-MESSAGE.
CALL "VPUTWINDOW" USING COMAREA
MSGBUF
ERRMSGLEN.
IF CSTATUS OF COMAREA NOT = 0
MOVE "Y" TO STOP-NOW
MOVE
"**** Paragraph: B-200-PROMPT-OPERATOR - Window Load"
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE.
IF STOP-NOW NOT = "Y"
*****
***** Display highlighted form and updated window message.
*****
CALL "VSHOWFORM" USING COMAREA.
IF CSTATUS OF COMAREA NOT = 0
MOVE "Y" TO STOP-NOW
MOVE
"**** Paragraph: B-200-PROMPT-OPERATOR - Display Upd
"ates"
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE.
A-900-CLEANUP-AFTER-WORK.
*****
***** Note that this paragraph unconditionally attempts to
***** close the Forms File and Terminal.
*****
CLOSE TXN-ENTRY.
MOVE 0 to CSTATUS OF COMAREA.
CALL "VCLOSEFORMF" USING COMAREA.
MOVE 0 to CSTATUS OF COMAREA.
CALL "VCLOSETERM" USING COMAREA.
Z-100-GET-ERROR-MESSAGE.
MOVE SPACES TO MSGBUF.
MOVE 150 TO MSGBUFLEN.
CALL "VERRMSG" USING COMAREA
MSGBUF
MSGBUFLEN