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

C- 8
MOVE "PAYROLL.WORK.ADMIN" TO FFNAME OF FORMSFILE.
CALL "HPDOPENFORMS" USING GLOBALPAK
RETURNPAK
FORMSFILE.
IF RETURNSTATUS OF RETURNPAK NOT = 0
MOVE "Y" TO STOP-NOW
MOVE "**** Routine: Setup For Work - Forms File Open"
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE.
***** Setup the terminal.
IF STOP-NOW NOT = "Y"
MOVE "HPTERM" TO TERMNAME OF TERMPAK
MOVE ZERO TO BYPASSFEATURE OF TERMPAK
CALL "HPDENABLETERM" USING GLOBALPAK
RETURNPAK
TERMPAK
UNUSED-PARM
IF RETURNSTATUS OF RETURNPAK NOT = 0
MOVE "Y" TO STOP-NOW
MOVE "**** Routine: Setup For Work - Terminal Setup"
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE.
A-500-COLLECT-TRANSACTIONS.
*****
***** Setup for and get transaction data entry form.
*****
***** No special Send instructions.
MOVE ZERO TO DONTENABLEINPUT OF SENDPAK.
MOVE SPACES TO WINDOWENH OF SENDPAK.
MOVE ZERO TO BYPASSFEATURE OF SENDPAK.
***** Setup to get and modify data entry form, toggling three
***** fields to "input allowed".
MOVE "DEDUCTION" TO FORMNAME OF FORMPAK.
***** Position form to start at top left of display (home).
MOVE ZERO TO FORMPOSITION OF FORMPAK.
***** Indicate that the fields in the form which will be
***** modified are identified by name.
MOVE 2 TO LISTTYPE OF FORMPAK.
***** Indicate the number of fields to modify.
MOVE 3 TO LISTCOUNT OF FORMPAK.
***** List fields to be modified, indicate modification type,
***** and new value.
MOVE "BADGE_NUMBER" TO FIELD_ID OF CHNGENTRY(1).
MOVE 5 TO CHANGE-TYPE OF CHNGENTRY(1).
MOVE "O" TO CHANGE-SPEC OF CHNGENTRY(1).
MOVE "LAST_NAME" TO FIELD_ID OF CHNGENTRY(2).