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