00001 *****                                                             09/13/01
00002 *                                                                 DTSIL962
00003 *    DTSIL962    BATCH SEQUENTIAL MASTER FILE OUTPUT LINKAGE.        LV002
00004 *                                                                 DTSIL962
00005 *    DTSIL962 AND DTSIMSKL DEFINE THE LINKAGE AREAS TO               CL**2
00006 *    DTSCU962 (BATCH SEQUENTIAL MASTER FILE OUTPUT).                 CL**2
00007 *                                                                 DTSIL962
00008 *****                                                             DTSIL962
00009      SKIP1                                                        DTSIL962
00010          10  L962-TRACE-IND              PIC  X(01).              DTSIL962
00011              88  L962-TRACE-88               VALUE 'T'.           DTSIL962
00012      SKIP1                                                        DTSIL962
00013          10  L962-MOD-NAME               PIC  X(08).              DTSIL962
00014      SKIP1                                                        DTSIL962
00015          10  L962-CMND-CD                PIC  X(03).              DTSIL962
00016              88  L962-OPEN-UPDATE-88             VALUE 'OPU'.     DTSIL962
00017              88  L962-WRITE-88                   VALUE 'WR '.     DTSIL962
00018              88  L962-CLOSE-88                   VALUE 'CL '.     DTSIL962
00019      SKIP1                                                        DTSIL962
00020          10  FILLER                      PIC  X(51).              DTSIL962
00021      SKIP1                                                        DTSIL962
00022          10  L962-RESULT-IND             PIC  X(01).              DTSIL962
00023              88  L962-OK-88                      VALUE '0'.       DTSIL962
00024              88  L962-NO-REC-88                  VALUE '1'.       DTSIL962