High-Level Screen Management Intrinsic Library Reference Manual (32424-90002)

C-: 7
05 RESETHILITED PIC S9(8) COMP.
01 DONE-WITH-TRANSACTIONS PIC X.
01 ERROR-LOCATION PIC X(70).
01 DATA-ENTRY-ERRS PIC X.
01 NBR-TXN-COLLECTED PIC 9(4).
01 STOP-NOW PIC X.
01 UNUSED-PARM PIC S9(8) COMP VALUE ZERO.
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.
***** Init Unused Parm which is used whenever intrinsic input
***** parameter is not active.
MOVE ZERO TO UNUSED-PARM.
***** Setup (and then forget) GlobalPak.
***** Set Expected HP32424A Version.
MOVE "A.00.00" TO EXPECTEDVUF OF GLOBALPAK.
***** Set Language for COBOL.
MOVE ZERO TO CALLPROTOCOL OF GLOBALPAK.
***** Set Comarealen for 300 bytes.
MOVE 300 TO COMAREALEN OF GLOBALPAK.
***** Comarea is already set to low values by value clause.
***** Open the Transaction File.
OPEN OUTPUT TXN-ENTRY.
***** Open the Forms File.