giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
Copybook/DTSIL372.cpy Normal file
View File

@ -0,0 +1,72 @@
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