00001 *****                                                             02/15/99
00002 *                                                                 DTSIR907
00003 *   DTSIR907   UNUSUAL CONDITIONS ENCOUNTERED REPORT RECORD.         LV005
00004 *                                                                 DTSIR907
00005 *                                                                    CL**2
00006 *              10/01/1998  REVIEWED AND MODIFIED FOR DC.  EHH        CL**2
00007 *                                                                    CL**2
00008 *****                                                             DTSIR907
00009                                                                      CL**2
00010          10  R907-LENGTH         PIC S9(04)  COMP.                   CL**2
00011                                                                      CL**2
00012          10  R907-SORT-AREA.                                      DTSIR907
00013              15  R907-REC-TYPE         PIC  X(03) VALUE '907'.       CL**5
00014              15  R907-MSG-ID             PIC  X(03).              DTSIR907
00015              15  FILLER REDEFINES R907-MSG-ID.                    DTSIR907
00016                  20  R907-MSG-ID-CHAR-1  PIC  X(01).              DTSIR907
00017                  20  FILLER              PIC  X(02).              DTSIR907
00018              15  R907-EMP-NO             PIC S9(07)  COMP-3.      DTSIR907
00019                                                                      CL**2
00020          10  R907-DATA-AREA.                                      DTSIR907
00021              15  R907-MSG-TEXT           PIC  X(105).             DTSIR907
00022              15  R907-MODULE-NAME        PIC  X(08).              DTSIR907