00001 *****                                                             09/30/98
00002 *                                                                 DTSIL941
00003 *    DTSIL941    VARIABLE LENGTH RECORD FILE INPUT LINKAGE.          LV002
00004 *                                                                 DTSIL941
00005 *    DTSIL941 AND (DTSIRSK1 OR DTSIRSK2 OR DTSIRSK3) DEFINE          CL**2
00006 *    THE LINKAGE AREAS TO DTSCU941 (VARIABLE LENGTH RECORD           CL**2
00007 *    FILE INPUT).                                                 DTSIL941
00008 *                                                                 DTSIL941
00009 *                                                                    CL**2
00010 *      09/30/1998  REVIEWED AND MODIFIED FOR DC.  EHH                CL**2
00011 *                                                                    CL**2
00012 *****                                                             DTSIL941
00013                                                                      CL**2
00014          10  L941-TRACE-IND              PIC  X(01).              DTSIL941
00015              88  L941-TRACE-88               VALUE 'T'.           DTSIL941
00016                                                                      CL**2
00017          10  L941-MOD-NAME               PIC  X(08).              DTSIL941
00018                                                                      CL**2
00019          10  L941-CMND-CD                PIC  X(03).              DTSIL941
00020              88  L941-OPEN-READ-88               VALUE 'OPR'.     DTSIL941
00021              88  L941-READ-NEXT-88               VALUE 'RDN'.     DTSIL941
00022              88  L941-CLOSE-88                   VALUE 'CL '.     DTSIL941
00023                                                                      CL**2
00024          10  FILLER                      PIC  X(51).              DTSIL941
00025                                                                      CL**2
00026          10  L941-RESULT-IND             PIC  X(01).              DTSIL941
00027              88  L941-OK-88                      VALUE '0'.       DTSIL941
00028              88  L941-NO-REC-88                  VALUE '1'.       DTSIL941