Online Programs with More Than 1,024 Updates

Online programs that require more than 1,024 updates per transaction make use of user journals.  The following changes are required in both the RPG and CL programs that are part of the job stream.

In the CL program:

·     A send journal entry command (SNDJRNE) is issued before the program call.  This command will send a begin sync point (BE) record to the journal to mark the beginning of the transaction.

·     An abort flag parameter (ABTFLG) is added to the program call.  This parameter will be turned on in the RPG program if the program ends abnormally.

·     The program call is followed by a check of the abort flag.  If the program completes normally, an end sync point (EN) record is sent to the journal to mark the end of the transaction.

In the RPG program:

·     The abort flag parameter (ABTFLG) is added to the *ENTRY parameter list.  The definition for this parameter is placed with other work field definitions in housekeeping.  The processing for setting on the abort flag is placed in the system error subroutine (ZSYSER), after the print file for the System Error Report (CT010X) has been closed.

Programs