00001 *****                                                             11/03/98
00002 *                                                                 DTSIL373
00003 *    DTSIL373    ACCOUNTING TRANSACTION FILE BATCH HEADER            LV002
00004 *                RECORD ESTABLISH MODULE LINKAGE.                 DTSIL373
00005 *                                                                 DTSIL373
00006 *                                                                    CL**2
00007 *                11/03/1998  REVIEWED AND MODIFIED FOR DC.  EHH      CL**2
00008 *                                                                    CL**2
00009 *****                                                             DTSIL373
00010                                                                      CL**2
00011          10  L373-RESULT-IND             PIC  X(01).              DTSIL373
00012              88  L373-RESULT-OK              VALUE '0'.           DTSIL373
00013              88  L373-FILE-CLOSED            VALUE '9'.           DTSIL373
00014              88  L373-RESULT-NOT-OK          VALUE '9'.           DTSIL373
00015                                                                      CL**2
00016          10  L373-ESTB-OP-ID             PIC  X(08).                 CL**2
00017                                                                      CL**2
00018          10  L373-BATCH-NO               PIC S9(05)  COMP-3.      DTSIL373
00019                                                                      CL**2
00020          10  L373-MSG-AREA.                                       DTSIL373
00021              15  L373-MSG-ID             PIC  X(04).              DTSIL373
00022              15  L373-MSG-TEXT           PIC  X(60).              DTSIL373
00023                                                                      CL**2
00024          10  FILLER                      PIC  X(52).                 CL**2