00001 *****                                                             04/03/20
00002 *                REVIEWED BY D. SHEPPERSON     10/23/1998         DTSIR906
00003 *                                                                    LV001
00004 *    DTSIR906    ON-LINE UPDATE LOG REPORT RECORD.                DTSIR906
00005 *                                                                 DTSIR906
00006 *                 ADDED BATCH AND ITEM NUMBERS TO TRACK           DTSIR906
00007 *                 UPDATES TO ACCOUNTING TRANSACTIONS.  9/15/2006 GDTSIR906
00008 *                                                                 DTSIR906
00009 *****                                                             DTSIR906
00010                                                                   DTSIR906
00011          10  R906-LENGTH         PIC S9(04)  COMP.                DTSIR906
00012                                                                   DTSIR906
00013          10  R906-SORT-AREA.                                      DTSIR906
00014              15  R906-REC-TYPE           PIC  X(03)  VALUE '906'. DTSIR906
00015              15  R906-OP-ID              PIC  X(08).              DTSIR906
00016              15  R906-EMP-NO             PIC S9(07)       COMP-3. DTSIR906
00017              15  R906-TASK-START-DATE    PIC S9(09)       COMP-3. DTSIR906
00018              15  R906-TASK-START-TIME    PIC S9(07)       COMP-3. DTSIR906
00019                                                                   DTSIR906
00020          10  R906-DATA-AREA.                                      DTSIR906
00021              15  R906-TASK-ID            PIC S9(08)       COMP.   DTSIR906
00022              15  R906-TERM-ID            PIC  X(04).              DTSIR906
00023              15  R906-NETNAME            PIC  X(08).              DTSIR906
00024              15  R906-SCR-ID             PIC  X(02).              DTSIR906
00025              15  R906-FUNCTION           PIC  X(01).              DTSIR906
00026              15  R906-BATCH-NO           PIC S9(05) COMP-3.       DTSIR906
00027              15  R906-ITEM-NO            PIC S9(03) COMP-3.       DTSIR906
00028                                                                   DTSIR906
00029          10  R906-PADDING-FOR-SYNCSORT   PIC  X(30).              DTSIR906