00001 *****                                                             10/15/98
00002 *                                                                 DTSIR425
00003 *   DTSIR425   MISSING REPORTS ESTABLISHED REPORT RECORD.            LV003
00004 *                                                                 DTSIR425
00005 *                                                                    CL**2
00006 *              10/14/1998  REVIEWED AND MODIFIED FOR DC.  EHH        CL**2
00007 *                                                                    CL**2
00008 *****                                                             DTSIR425
00009                                                                      CL**2
00010          10  R425-LENGTH                 PIC S9(04)  COMP.           CL**2
00011                                                                      CL**2
00012          10  R425-SORT-AREA.                                      DTSIR425
00013              15  R425-REC-TYPE           PIC  X(03)  VALUE '425'. DTSIR425
00014              15  R425-FLD-REP-ID         PIC  X(02).                 CL**3
00015              15  R425-EMP-NO             PIC S9(07)  COMP-3.         CL**2
00016              15  R425-YRQ                PIC S9(05)  COMP-3.         CL**2
00017                                                                      CL**2
00018          10  R425-COMMON-DATA-AREA.                               DTSIR425
00019              15  R425-PRIMARY-NAME       PIC  X(40).                 CL**2
00020              15  R425-RPT-DUE-DATE       PIC S9(09)  COMP-3.      DTSIR425