00001 *****                                                             11/04/98
00002 *                                                                 DTSIL037
00003 *    DTSIL037    MISCELLANEOUS CODES EDIT/DESCRIPTION                LV002
00004 *                MODULE LINKAGE.                                  DTSIL037
00005 *                                                                 DTSIL037
00006 *****                                                             DTSIL037
00007      SKIP1                                                        DTSIL037
00008          10  L037-OPTION         PIC S9(04)   COMP.               DTSIL037
00009              88  L037-MTCK-TYPE              VALUE +01.           DTSIL037
00010      SKIP1                                                        DTSIL037
00011          10  L037-RESULT-IND             PIC  X(01).              DTSIL037
00012              88  L037-VALID                  VALUE '1'.           DTSIL037
00013              88  L037-NOT-VALID              VALUE '2'.           DTSIL037
00014      SKIP1                                                        DTSIL037
00015          10  L037-CD                     PIC  X(05).              DTSIL037
00016          10  FILLER REDEFINES L037-CD.                            DTSIL037
00017              15  L037-CD-1               PIC  X(01).              DTSIL037
00018              15  FILLER                  PIC  X(04).              DTSIL037
00019          10  FILLER REDEFINES L037-CD.                            DTSIL037
00020              15  L037-CD-2               PIC  X(02).              DTSIL037
00021              15  FILLER                  PIC  X(03).              DTSIL037
00022          10  FILLER REDEFINES L037-CD.                            DTSIL037
00023              15  L037-CD-3               PIC  X(03).              DTSIL037
00024              15  FILLER                  PIC  X(02).              DTSIL037
00025          10  FILLER REDEFINES L037-CD.                            DTSIL037
00026              15  L037-CD-4               PIC  X(04).              DTSIL037
00027              15  FILLER                  PIC  X(01).              DTSIL037
00028          10  L037-CD-5 REDEFINES L037-CD PIC  X(05).              DTSIL037
00029      SKIP1                                                        DTSIL037
00030          10  L037-SHORT-DSCR             PIC  X(10).              DTSIL037
00031          10  L037-LONG-DSCR              PIC  X(40).              DTSIL037
00032      SKIP1                                                        DTSIL037
00033          10  FILLER                      PIC  X(04).              DTSIL037