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

434 AppendixA
SAMPLE PROGRAMS
COBOL
01 ERROR-LOCATION PIC X(70).
01 FILENAME PIC X(86).
01 FOUND-DATA-ERRORS PIC X.
01 INFOBUFLEN PIC S9(4) COMP.
01 MSGBUF PIC X(150).
01 MSGBUFLEN PIC S9(4) COMP.
01 ERRMSGLEN PIC S9(4) COMP.
01 NBR-TXN-COLLECTED PIC 9(4).
01 NUMSPECS PIC S9(4) COMP.
01 STOP-NOW PIC X.
PROCEDURE DIVISION.
A-000-START-PROGRAM.
MOVE "N" TO STOP-NOW
DONE-WITH-TRANSACTIONS.
MOVE ZERO TO NBR-TXN-COLLECTED.
PERFORM A-100-SETUP-FOR-WORK.
PERFORM A-500-COLLECT-TRANSACTIONS
UNTIL STOP-NOW = "Y"
OR DONE-WITH-TRANSACTIONS = "Y".
PERFORM A-900-CLEANUP-AFTER-WORK.
DISPLAY " ".
DISPLAY "Deduction transactions collected this session = "
NBR-TXN-COLLECTED.
IF STOP-NOW = "Y"
PERFORM Z-900-DISPLAY-SYSTEM-ERROR.
STOP RUN.
A-100-SETUP-FOR-WORK.
*****
***** Finish Comarea initialization.
*****
***** (Note Comarea value clauses.)
*****
*****
***** Set Language for COBOL.
*****
MOVE ZERO TO LANGUAGE OF COMAREA.