00001 *****                                                             12/17/03
00002 *                                                                 EFTIF907
00003 *   EFTIF907   UNUSUAL CONDITIONS ENCOUNTERED GOVONE RECORD.         LV027
00004 *                                                                 EFTIF907
00005 *                                                                    CL**2
00006 *              04/23/2003  REVIEWED AND MODIFIED FOR DC.  ZL1        CL**6
00007 *                                                                    CL**2
00008 *****                                                             EFTIF907
00009                                                                      CL**2
00010          10  F907-LENGTH         PIC S9(04)  COMP.                   CL**7
00011                                                                      CL**2
00012          10  F907-SORT-AREA.                                         CL**7
00013              15  F907-REC-TYPE           PIC  X(03) VALUE '907'.     CL*19
00014              15  F907-MSG-ID             PIC  X(03).                 CL**7
00015              15  FILLER REDEFINES F907-MSG-ID.                       CL**7
00016                  20  F907-MSG-ID-CHAR-1  PIC  X(01).                 CL**7
00017                  20  FILLER              PIC  X(02).              EFTIF907
00018              15  F907-EMP-NO             PIC S9(07)  COMP-3.         CL**7
00019                                                                      CL**2
00020          10  F907-DATA-AREA.                                         CL**7
00021 *            15  F907-MSG-TEXT           PIC  X(55).                 CL*19
00022              15  F907-MSG-TEXT           PIC  X(45).                 CL*21
00023              15  FILLER                  PIC  X(01).                 CL*14
00024              15  F907-GOV1-REC.                                      CL*10
00025 *                20  F907-GOV1-RECID     PIC  X(04).                 CL*21
00026                  20  F907-GOV1-RECID     PIC  X(02).                 CL*21
00027                  20  FILLER              PIC  X(01).                 CL*22
00028                  20  F907-GOV1-DATA      PIC  X(40).                 CL*19
00029                  20  F907-GOV1-TRACE     PIC  X(15).                 CL*19
00030              15  F907-GOV1-REC-ERR REDEFINES F907-GOV1-REC           CL*23
00031                                          PIC  X(58).                 CL*27
00032              15  FILLER                  PIC  X(01).                 CL*23
00033              15  F907-MODULE-NAME        PIC  X(08).                 CL**7