73 lines
5.7 KiB
COBOL
73 lines
5.7 KiB
COBOL
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
|