00001 *****                                                             02/10/99
00002 *                                                                 DTSIL961
00003 *    DTSIL961    SEQUENTIAL MASTER FILE INPUT LINKAGE.               LV002
00004 *                                                                 DTSIL961
00005 *    DTSIL961 AND DTSIMSKL DEFINE THE LINKAGE AREAS TO               CL**2
00006 *    TO DTSCU961 (SEQUENTIAL MASTER FILE INPUT).                     CL**2
00007 *                                                                 DTSIL961
00008 *****                                                             DTSIL961
00009                                                                      CL**2
00010          10  L961-TRACE-IND              PIC  X(01).              DTSIL961
00011              88  L961-TRACE-88               VALUE 'T'.           DTSIL961
00012                                                                      CL**2
00013          10  L961-MOD-NAME               PIC  X(08).              DTSIL961
00014                                                                      CL**2
00015          10  L961-CMND-CD                PIC  X(03).              DTSIL961
00016              88  L961-OPEN-READ-88               VALUE 'OPR'.     DTSIL961
00017              88  L961-READ-NEXT-88               VALUE 'RDN'.     DTSIL961
00018              88  L961-CLOSE-88                   VALUE 'CL '.     DTSIL961
00019                                                                      CL**2
00020          10  FILLER                      PIC  X(51).              DTSIL961
00021                                                                      CL**2
00022          10  L961-RESULT-IND             PIC  X(01).              DTSIL961
00023              88  L961-OK-88                      VALUE '0'.       DTSIL961
00024              88  L961-NO-REC-88                  VALUE '1'.       DTSIL961