00001 *****                                                             08/28/02
00002 *                                                                 DTSIL041
00003 *    DTSIL041    ELECTRONIC FILER CODES EDIT/DESCRIPTION             LV001
00004 *                MODULE LINKAGE.                                  DTSIL041
00005 *                                                                 DTSIL041
00006 *****                                                             DTSIL041
00007      SKIP1                                                        DTSIL041
00008          10  L041-LENGTH         PIC S9(04)   COMP  VALUE +64.    DTSIL041
00009      SKIP1                                                        DTSIL041
00010          10  L041-OPTION         PIC S9(04)   COMP.               DTSIL041
00011              88  L041-EPRF-DATA-TYPE-CD       VALUE +01.          DTSIL041
00012              88  L041-EPRF-MEDIUM-TYPE-CD     VALUE +02.          DTSIL041
00013              88  L041-EPRF-FORMAT-CD          VALUE +03.          DTSIL041
00014              88  L041-EEMH-RESULT-CD          VALUE +11.          DTSIL041
00015      SKIP1                                                        DTSIL041
00016          10  L041-RESULT-IND             PIC  X(01).              DTSIL041
00017              88  L041-VALID                  VALUE '1'.           DTSIL041
00018              88  L041-NOT-VALID              VALUE '2'.           DTSIL041
00019      SKIP1                                                        DTSIL041
00020          10  L041-CD                     PIC  X(08).              DTSIL041
00021          10  FILLER REDEFINES L041-CD.                            DTSIL041
00022              15  L041-CD-1               PIC  X(01).              DTSIL041
00023              15  FILLER                  PIC  X(07).              DTSIL041
00024          10  FILLER REDEFINES L041-CD.                            DTSIL041
00025              15  L041-CD-2               PIC  X(02).              DTSIL041
00026              15  FILLER                  PIC  X(06).              DTSIL041
00027          10  FILLER REDEFINES L041-CD.                            DTSIL041
00028              15  L041-CD-3               PIC  X(03).              DTSIL041
00029              15  FILLER                  PIC  X(05).              DTSIL041
00030          10  FILLER REDEFINES L041-CD.                            DTSIL041
00031              15  L041-CD-4               PIC  X(04).              DTSIL041
00032              15  FILLER                  PIC  X(04).              DTSIL041
00033          10  FILLER REDEFINES L041-CD.                            DTSIL041
00034              15  L041-CD-5               PIC  X(05).              DTSIL041
00035              15  FILLER                  PIC  X(03).              DTSIL041
00036          10  FILLER REDEFINES L041-CD.                            DTSIL041
00037              15  L041-CD-6               PIC  X(06).              DTSIL041
00038              15  FILLER                  PIC  X(02).              DTSIL041
00039          10  FILLER REDEFINES L041-CD.                            DTSIL041
00040              15  L041-CD-7               PIC  X(07).              DTSIL041
00041              15  FILLER                  PIC  X(01).              DTSIL041
00042          10  L041-CD-8 REDEFINES L041-CD PIC  X(08).              DTSIL041
00043      SKIP1                                                        DTSIL041
00044          10  L041-SHORT-DSCR             PIC  X(10).              DTSIL041
00045          10  L041-LONG-DSCR              PIC  X(40).              DTSIL041
00046      SKIP1                                                        DTSIL041
00047          10  FILLER                      PIC  X(04).              DTSIL041