Off-line Updates

Off-line programs that perform update operations 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.

The programs in this category are part of a job stream, and do not stand alone.  It is possible for one of these programs to fail, while a subsequent program in the job stream completes successfully.  During end-of-day processing, if it is discovered that one of these programs failed, then all subsequent programs in the job stream will be set to indicate that they failed.  This is regardless of their actual completion status.  This restores an accurate version of all files.

Programs