00001 *****                                                             11/03/98
00002 *                                                                 DTSIL371
00003 *    DTSIL371    ACCOUNTING TRANSACTION FILE RECORD DELETION         LV002
00004 *                MODULE LINKAGE.                                  DTSIL371
00005 *                                                                 DTSIL371
00006 *                                                                    CL**2
00007 *                11/03/1998  REVIEWED AND MODIFIED FOR DC.  EHH      CL**2
00008 *                                                                    CL**2
00009 *****                                                             DTSIL371
00010                                                                      CL**2
00011          10  L371-RESULT-IND             PIC  X(01).              DTSIL371
00012              88  L371-RESULT-OK              VALUE '0'.           DTSIL371
00013              88  L371-AHDR-NOT-FOUND         VALUE '6'.           DTSIL371
00014              88  L371-REC-NOT-FOUND          VALUE '7'.           DTSIL371
00015              88  L371-FILE-CLOSED            VALUE '9'.           DTSIL371
00016              88  L371-RESULT-NOT-OK          VALUE '6' '7' '9'.   DTSIL371
00017                                                                      CL**2
00018          10  L371-DOC-NO.                                         DTSIL371
00019              15  L371-BATCH-NO           PIC S9(05)  COMP-3.      DTSIL371
00020              15  L371-ITEM-NO            PIC S9(03)  COMP-3.      DTSIL371
00021                                                                      CL**2
00022          10  L371-MSG-AREA.                                       DTSIL371
00023              15  L371-MSG-ID             PIC  X(04).              DTSIL371
00024              15  L371-MSG-TEXT           PIC  X(60).              DTSIL371
00025                                                                      CL**2
00026          10  FILLER                      PIC  X(26).                 CL**2