00001 *****                                                             06/29/02
00002 *                                                                 DTSIL372
00003 *    DTSIL372    BATCH HEADER INQUIRY/UPDATE MODULE LINKAGE.         LV008
00004 *                                                                 DTSIL372
00005 *                                                                 DTSIL372
00006 *                11/03/1998  REVIEWED AND MODIFIED FOR DC.  EHH   DTSIL372
00007 *                                                                 DTSIL372
00008 *                02/08/2002  ADDED ANNUAL BATCH INDICATOR.  GD    DTSIL372
00009 *                                                                 DTSIL372
00010 *****                                                             DTSIL372
00011                                                                   DTSIL372
00012          10  L372-REQUEST-IND            PIC  X(01).              DTSIL372
00013              88  L372-INQUIRE                VALUE 'I'.           DTSIL372
00014              88  L372-UPDATE                 VALUE 'U'.           DTSIL372
00015                                                                   DTSIL372
00016                                                                   DTSIL372
00017          10  L372-RESULT-IND             PIC  X(01).              DTSIL372
00018              88  L372-RESULT-OK            VALUE '0'.             DTSIL372
00019              88  L372-REC-NOT-FOUND        VALUE '1'.             DTSIL372
00020              88  L372-FILE-CLOSED          VALUE '9'.             DTSIL372
00021              88  L372-RESULT-NOT-OK        VALUE '1' '9'.         DTSIL372
00022                                                                   DTSIL372
00023                                                                   DTSIL372
00024          10  L372-BATCH-NO               PIC S9(05)       COMP-3. DTSIL372
00025                                                                   DTSIL372
00026                                                                   DTSIL372
00027          10  L372-UPDATE-AREA.                                    DTSIL372
00028              15  L372-CHNG-ATC-FILE-TRAN-CNT                      DTSIL372
00029                                          PIC S9(03)       COMP-3. DTSIL372
00030                                                                   DTSIL372
00031              15  L372-CHNG-ATC-FILE-REMIT-AMT                     DTSIL372
00032                                          PIC S9(09)V9(02) COMP-3. DTSIL372
00033                                                                   DTSIL372
00034              15  L372-CHNG-LAST-USED-ITEM-NO                      DTSIL372
00035                                          PIC S9(03)       COMP-3. DTSIL372
00036                                                                   DTSIL372
00037              15  L372-CHNG-INCR-LAST-USED-IND                     DTSIL372
00038                                          PIC  X(01).              DTSIL372
00039                  88  L372-CHNG-INCR-LAST-USED-N-88     VALUE 'N'. DTSIL372
00040                  88  L372-CHNG-INCR-LAST-USED-Y-88     VALUE 'Y'. DTSIL372
00041                                                                   DTSIL372
00042          10  L372-RETURN-AREA.                                    DTSIL372
00043              15  L372-BATCH-BALANCED-IND PIC  X(01).              DTSIL372
00044                  88  L372-BATCH-BALANCED-NO-88   VALUE 'N'.       DTSIL372
00045                  88  L372-BATCH-BALANCED-YES-88  VALUE 'Y'.       DTSIL372
00046                                                                   DTSIL372
00047              15  L372-BATCH-HELD-IND     PIC  X(01).              DTSIL372
00048                  88  L372-BATCH-HELD-NO-88       VALUE 'N'.       DTSIL372
00049                  88  L372-BATCH-HELD-YES-88      VALUE 'Y'.       DTSIL372
00050                                                                   DTSIL372
00051              15  L372-ANNUAL-BATCH-IND   PIC  X(01).              DTSIL372
00052                  88  L372-ANNUAL-BATCH-YES-88    VALUE 'Y'.       DTSIL372
00053                  88  L372-ANNUAL-BATCH-NO-88     VALUE 'N'.       DTSIL372
00054                                                                   DTSIL372
00055              15  L372-LAST-USED-ITEM-NO  PIC S9(03)       COMP-3. DTSIL372
00056                  88  L372-LAST-USED-ITEM-MAX-88  VALUE +999.      DTSIL372
00057                                                                   DTSIL372
00058              15  L372-ATC-FILE-TRAN-CNT  PIC S9(03)       COMP-3. DTSIL372
00059                                                                   DTSIL372
00060              15  L372-ATC-FILE-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIL372
00061                                                                   DTSIL372
00062              15  L372-CONTROL-TRAN-CNT   PIC S9(03)       COMP-3. DTSIL372
00063                                                                   DTSIL372
00064              15  L372-CONTROL-REMIT-AMT  PIC S9(09)V9(02) COMP-3. DTSIL372
00065                                                                   DTSIL372
00066                                                                   DTSIL372
00067          10  L372-MSG-AREA.                                       DTSIL372
00068              15  L372-MSG-ID             PIC  X(04).              DTSIL372
00069              15  L372-MSG-TEXT           PIC  X(60).              DTSIL372
00070                                                                   DTSIL372
00071                                                                   DTSIL372
00072          10  FILLER                      PIC  X(28).              DTSIL372