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