00001 *****                                                             11/09/98
00002 *                                                                 DTSIL033
00003 *    DTSIL033    RPT CODE/PURSUE CODE/DESCRIPTION                    LV002
00004 *                MODULE LINKAGE.                                  DTSIL033
00005 *                                                                 DTSIL033
00006 *                                                                    CL**2
00007 *                11/09/1998  REVIEWED AND MODIFIED FOR DC.  EHH      CL**2
00008 *                                                                    CL**2
00009 *****                                                             DTSIL033
00010                                                                      CL**2
00011          10  L033-OPTION         PIC S9(04)   COMP.               DTSIL033
00012              88  L033-MQTR-RPT-PURSUE        VALUE +01.           DTSIL033
00013                                                                      CL**2
00014          10  L033-RESULT-IND             PIC  X(01).              DTSIL033
00015              88  L033-VALID                  VALUE '1'.           DTSIL033
00016              88  L033-NOT-VALID              VALUE '2'.           DTSIL033
00017                                                                      CL**2
00018          10  L033-CD                     PIC  X(05).              DTSIL033
00019          10  FILLER REDEFINES L033-CD.                            DTSIL033
00020              15  L033-CD-1               PIC  X(01).              DTSIL033
00021              15  FILLER                  PIC  X(04).              DTSIL033
00022          10  FILLER REDEFINES L033-CD.                            DTSIL033
00023              15  L033-CD-2               PIC  X(02).              DTSIL033
00024              15  FILLER REDEFINES L033-CD-2.                      DTSIL033
00025                  20  L033-CURR-RPT-TYPE    PIC  X(01).            DTSIL033
00026                  20  L033-PURSUED-RPT-IND  PIC  X(01).            DTSIL033
00027              15  FILLER                  PIC  X(03).              DTSIL033
00028          10  FILLER REDEFINES L033-CD.                            DTSIL033
00029              15  L033-CD-3               PIC  X(03).              DTSIL033
00030              15  FILLER                  PIC  X(02).              DTSIL033
00031          10  FILLER REDEFINES L033-CD.                            DTSIL033
00032              15  L033-CD-4               PIC  X(04).              DTSIL033
00033              15  FILLER                  PIC  X(01).              DTSIL033
00034          10  L033-CD-5 REDEFINES L033-CD PIC  X(05).              DTSIL033
00035                                                                      CL**2
00036                                                                      CL**2
00037          10  L033-SHORT-DSCR             PIC  X(10).              DTSIL033
00038                                                                      CL**2
00039          10  L033-LONG-DSCR              PIC  X(40).              DTSIL033
00040                                                                      CL**2
00041          10  L033-SHORT-DSCR-RIGHT       PIC  X(10).              DTSIL033
00042                                                                      CL**2
00043          10  FILLER                      PIC  X(28).                 CL**2