00001          10  T070-LENGTH                   PIC S9(04) COMP.       08/02/02
00002          10  T070-COMMON-AREA.                                    DTSIT070
00003              15  T070-REC-TYPE             PIC  X(03) VALUE '070'.   LV001
00004                  88  T070-070-88                      VALUE '070'.DTSIT070
00005              15  T070-JOB-NAME             PIC  X(08).            DTSIT070
00006              15  T070-JOB-TYPE             PIC  X(01).            DTSIT070
00007                  88  T070-JOB-TYPE-PRE-UPD            VALUE '0'.  DTSIT070
00008                  88  T070-JOB-TYPE-POST-UPD           VALUE '1'.  DTSIT070
00009                  88  T070-JOB-TYPE-READ-ONLY          VALUE '2'.  DTSIT070
00010                                                                   DTSIT070
00011          10  T070-DATA-AREA.                                      DTSIT070
00012              15  T070-PARM-CNT             PIC S9(04) COMP.       DTSIT070
00013              15  T070-PARM-AREA OCCURS 16 TIMES.                  DTSIT070
00014                  20  T070-PARM             PIC  X(32).            DTSIT070
00015              15  FILLER                    PIC  X(75).            DTSIT070