00001 *****                                                             10/07/98
00002 *                                                                 DTSIR905
00003 *    DTSIR905    ON-LINE RECOVERY/RESTART REPORT RECORD.             LV004
00004 *                                                                 DTSIR905
00005 *****                                                             DTSIR905
00006                                                                      CL**3
00007          10  R905-LENGTH         PIC S9(04)  COMP.                   CL**2
00008                                                                      CL**3
00009          10  R905-SORT-AREA.                                      DTSIR905
00010              15  R905-REC-TYPE           PIC  X(03)  VALUE '905'. DTSIR905
00011              15  R905-EMP-NO             PIC S9(07)       COMP-3. DTSIR905
00012              15  R905-SYS-DATE           PIC S9(09)       COMP-3. DTSIR905
00013              15  R905-SYS-TIME           PIC S9(07)       COMP-3. DTSIR905
00014                                                                      CL**3
00015          10  R905-DATA-AREA.                                      DTSIR905
00016              15  R905-OP-ID              PIC  X(08).              DTSIR905
00017              15  R905-UPDATE-IND         PIC  X(01).              DTSIR905
00018              15  R905-UPDATE-TASK-ID     PIC S9(08)       COMP.   DTSIR905
00019              15  R905-UPDATE-OP-ID       PIC  X(08).              DTSIR905
00020              15  R905-UPDATE-TERMID      PIC  X(04).              DTSIR905
00021              15  R905-UPDATE-NETNAME     PIC  X(08).                 CL**2
00022              15  R905-UPDATE-START-DATE  PIC S9(09)       COMP-3. DTSIR905
00023              15  R905-UPDATE-START-TIME  PIC S9(07)       COMP-3. DTSIR905
00024              15  R905-UPDATE-SCR-ID      PIC  X(02).              DTSIR905
00025              15  R905-UPDATE-FUNCTION    PIC  X(01).              DTSIR905
00026                                                                      CL**4
00027          10  R905-PADDING-FOR-SYNCSORT   PIC  X(20).                 CL**4