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

Appendix A 435
SAMPLE PROGRAMS
COBOL
*****
***** Set Comarealen to 60 words (120 bytes).
*****
MOVE 60 TO COMAREALEN OF COMAREA.
*****
***** Activate function key labeling.
*****
MOVE 1 TO LABELOPTIONS OF COMAREA.
*****
***** Disable form background loading on Vreadfields.
*****
MOVE ZERO TO LOOKAHEAD OF COMAREA.
*****
***** Set size of local form storage directory.
*****
MOVE 4 TO FORMSTORESIZE OF COMAREA.
*****
***** Open the Transaction File
*****
OPEN OUTPUT TXN-ENTRY.
*****
***** Open the Forms File.
*****
MOVE "PAYROLL.WORK.ADMIN" TO FILENAME.
CALL "VOPENFORMF" USING COMAREA
FILENAME.
IF CSTATUS OF COMAREA NOT = 0
MOVE "Y" TO STOP-NOW
MOVE
"**** Paragraph: A-100-SETUP-FOR-WORK - Forms File Open"
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE.
IF STOP-NOW NOT = "Y"
*****
***** Open the Terminal.
*****
MOVE "HPTERM" TO FILENAME
CALL "VOPENTERM" USING COMAREA
FILENAME
IF CSTATUS OF COMAREA NOT = 0