Financial Accounting System

The purpose of this program is to edit input to the daily process control parameter and to update global control data on the Fin and Fas databases. Previously this input was entered into a Wfl control card from data submitted on the Fas Daily Job Request (pages 5, 6, and 7) and consisted of control dates, flags, month number, and on request report flags.

The program will be modified to read it's input from the Lfpadb1 database rather than a wfl job control card.

In addition, AM10000 will harvest all other parameters normally transmitted via the Fas Daily Job Request from Lfpadb1 with the exception of input file serialno's and file run numbers which will be harvested by program AM11000 (reformat).

The system interface parameters for the Pas, Bgt, and Sdb interfaces, as well as the number of report copies for certain variable copies print files are currently fed into the jobstream by assigning their values as parameter arguments to Wfl variables passed directly to the associated programs via a "run pgmname [variable1...] statement. These will now be transmitted to those programs through the daily parameter. Additional SS1 parameters records have been added to the SS1 file in order to make them accessible to all programs in the jobstream.

The input cards/parameters map to the dataset entries in the following manner:

• AM10000 card data (except report requests) ==> from Pgm-Parameters
• PAS/BGT/SDB interface parameters ==> Pgm-Parameters
• On Request reports ==> Program-Reports
• Variable Report Copy and fiche request ==> Program-Reports

These modifications represent a major rewrite of the entire program;

• Remove all references to AM10000-CARDS from the program; both in the comments, and the code. Remove the FD entry for the card input.

• It may make sense to retain most of the working storage fields associated with the old card input and to map the new data source to the old card input layout.

• New working storage layouts will need to be added for the additional records being added to the FASPARAMSS1 file. See the old parameter (rcd 1 now), new parameter record 2, new parameter record 3 layouts and the old input card layout for reference.

• Add the database reference for Lfpadb1 to the DATA-BASE SECTION as well as references to the Jobstream-Req, Job-Depends-On, Actual-Events, Program-Req, Pgm-Depends-On, Pgm-Parameters, and Program-Reports datasets.

• Refer to the Fin Team Programming Standards as guide to improving the program structure and maintainability.

• We will attempt to keep the edits performed in 2000-PROCESS-CARDS intact and will add additional edits for the two new parameter records.

• The initialization section, in particular the 1300-AM10000-CARDS paragraph, will be heavily modified.

  We will need to Open the new database update.

  Verify that the job has been requested and that this program has not already run for this iteration of the requested job.

• Verifying that the job has been requested.

  1. Using the control information on the previous days control parameter, access the Jobstream-Req dataset with System-Id = "F", Schedule-Date = Process-Date,Schedule-Seq = "01", Job-Name= Job-Name (from prior parameter), and Job-Seq = Run-Number. (Error/Exit if not found)

     Roll forward through the data set entries until Job-Name= This-Jobs-Name. Check the Job-Status to see if this job has completed. (Error/Exit)

     Update the Job Start-Date and Job Start-Time. Access the Program-Req dataset, Schedule Date = Schedule Date of Jobstream-Req, Schedule-Seq = Sched... Program-Name = "AM10000" and Program-Seq = "01" (Error/Exit if not found). Check the Program-Status to see if this program has completed already. (Error/Exit)