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

24
Copybook/DTSIR330.cpy Normal file
View File

@ -0,0 +1,24 @@
00001 ***** 11/12/04
00002 * DTSIR330
00003 * DTSIR330 CREDITS ESTABLISHED REPORT RECORD. LV001
00004 * DTSIR330
00005 ***** DTSIR330
00006 SKIP1 DTSIR330
00007 10 R330-LENGTH PIC S9(04) COMP. DTSIR330
00008 SKIP1 DTSIR330
00009 10 R330-SORT-AREA. DTSIR330
00010 15 R330-REC-TYPE PIC X(03). DTSIR330
00011 15 R330-EMP-NO PIC S9(07) COMP-3. DTSIR330
00012 SKIP1 DTSIR330
00013 10 R330-DATA-AREA. DTSIR330
00014 15 R330-SUBJECT-DATE PIC S9(09) COMP-3. DTSIR330
00015 15 R330-RPT-TYPE PIC X(01). DTSIR330
00016 88 R330-RPT-TYPE-DAILY-88 VALUE '0'. DTSIR330
00017 88 R330-RPT-TYPE-COLL-88 VALUE '1'. DTSIR330
00018 15 R330-CREDIT-DEBIT-IND PIC X(01). DTSIR330
00019 88 R330-CREDIT-88 VALUE 'C'. DTSIR330
00020 88 R330-DEBIT-88 VALUE 'D'. DTSIR330
00021 15 R330-BATCH-NO PIC S9(05) COMP-3. DTSIR330
00022 15 R330-ITEM-NO PIC S9(03) COMP-3. DTSIR330
00023 15 R330-TRAN-TYPE PIC X(02). DTSIR330
00024 15 R330-AMT PIC S9(09)V99 COMP-3. DTSIR330