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

436 AppendixA
SAMPLE PROGRAMS
COBOL
MOVE "Y" TO STOP-NOW
MOVE
"**** Paragraph: A-100-SETUP-FOR-WORK - Terminal Setu
"p"
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE.
IF STOP-NOW NOT = "Y"
*****
***** Translate field names to screen orders.
*****
***** Three of the fields in the form used by this
***** application need to be toggled from "display
***** only" to "input allowed". In order to do this,
***** we first translate field names to screen orders.
*****
MOVE 3 TO NUM-ENTRIES OF FIELDINFO
MOVE 9 TO ENTRY-LEN OF FIELDINFO
MOVE "DEDUCTION" TO FORM-NAME OF FIELDINFO
*****
***** The value 8224, which is moved to Screen Order in
***** the following statements is equal to two ASCII blanks.
*****
MOVE "BADGE_NUMBER" TO FIELD-NAME
OF FIELD-ENTRY (1)
MOVE 8224 TO SCREEN-ORDER
OF FIELD-ENTRY (1)
MOVE "LAST-NAME" TO FIELD-NAME
OF FIELD-ENTRY (2)
MOVE 8224 TO SCREEN-ORDER
OF FIELD-ENTRY (2)
MOVE "SUR NAME" TO FIELD-NAME
OF FIELD-ENTRY (3)
MOVE 8224 TO SCREEN-ORDER
OF FIELD-ENTRY (3)
*****
***** Now determine the length of the entire Fieldinfo
***** Buffer.
*****
MULTIPLY NUM-ENTRIES OF FIELDINFO
BY ENTRY-LEN OF FIELDINFO
GIVING INFOBUFLEN
ADD 10 TO INFOBUFLEN
CALL "VGETFIELDINFO" USING COMAREA
FIELDINFO
INFOBUFLEN
IF CSTATUS OF COMAREA NOT = 0
MOVE "Y" TO STOP-NOW