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

C-: 9
MOVE 5 TO CHANGE-TYPE OF CHNGENTRY(2).
MOVE "O" TO CHANGE-SPEC OF CHNGENTRY(2).
MOVE "SUR_NAME" TO FIELD_ID OF CHNGENTRY(3).
MOVE 5 TO CHANGE-TYPE OF CHNGENTRY(3).
MOVE "O" TO CHANGE-SPEC OF CHNGENTRY(3).
***** Setup window message.
MOVE 79 TO MSGLEN OF MSGFORWINDOW.
MOVE "Fill in Deduction Transaction according to worksheet."
TO MSGAREA OF MSGFORWINDOW.
***** Don't copy application data out to display.
MOVE -1 TO DESCRPTTYPE OF DATADESCRPT.
***** Show Form.
CALL "HPDSEND" USING GLOBALPAK
RETURNPAK
SENDPAK
FORMPAK
UNUSED-PARM
MSGFORWINDOW
DATADESCRPT
UNUSED-PARM
UNUSED-PARM
UNUSED-PARM.
IF RETURNSTATUS OF RETURNPAK NOT = 0
MOVE "Y" TO STOP-NOW
MOVE "**** Routine: Collect Transactions - Form display"
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE.
***** Setup and loop on transaction until it can be filed.
MOVE "Y" TO DATA-ENTRY-ERRS.
PERFORM B-100-READ-EDIT-AND-FILE
UNTIL DATA-ENTRY-ERRS = "N"
OR STOP-NOW = "Y"
OR DONE-WITH-TRANSACTIONS = "Y".
B-100-READ-EDIT-AND-FILE.
*****
***** Read form.
*****
***** Enable data finishing.
MOVE 1 TO ENABLEREFORMAT OF READPAK.
***** No other special Read instructions.
MOVE ZERO TO READTIME OF READPAK.
MOVE ZERO TO DOREREAD OF READPAK.
***** Indicate that all data in form, up to 200 bytes, is to be
***** copied into application work space.
MOVE 10 TO DESCRPTTYPE OF DATADESCRPT.
MOVE 200 TO BUFLEN OF DATADESCRPT.
***** Read form.