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

41
Copybook/DTSIX303.cpy Normal file
View File

@ -0,0 +1,41 @@
00001 ***** 07/01/08
00002 * DTSIX303
00003 * DTSIX303 R*STARS 'DAFRIN' TRAN INTERFACE HEADER REC LV001
00004 * DTSIX303
00005 * HEADER RECORD FOR THE AUTOMATED REFUND PROCESS. DTSIX303
00006 * DTSIX303
00007 * DTSIX303
00008 * DTSIX303
00009 ***** DTSIX303
00010 DTSIX303
00011 10 X303-BATCH-AGY PIC X(03) VALUE 'UIU'. DTSIX303
00012 10 X303-BATCH-DATE PIC X(08). DTSIX303
00013 10 X303-BATCH-TYPE PIC X(01) VALUE 'X'. DTSIX303
00014 10 X303-BATCH-NO PIC 9(03). DTSIX303
00015 10 X303-BATCH-SEQ-NO PIC 9(05) VALUE ZEROS. DTSIX303
00016 10 X303-BATCH-OPERATOR-ID PIC X(08) DTSIX303
00017 VALUE 'INTERUIU'. DTSIX303
00018 10 X303-BATCH-OPERATOR-NAME PIC X(20) VALUE SPACES. DTSIX303
00019 10 X303-BATCH-OPERATOR-CLASS PIC X(02) VALUE SPACES. DTSIX303
00020 10 X303-BATCH-TID PIC X(04) VALUE SPACES. DTSIX303
00021 10 X303-BATCH-EFF-DATE PIC X(08). DTSIX303
00022 10 X303-BATCH-DISB-METHOD PIC X(01) VALUE 'R'. DTSIX303
00023 10 X303-BATCH-PAY-DIST-TYPE PIC X(02) VALUE SPACES. DTSIX303
00024 10 X303-FAST-ENTRY PIC X(01) VALUE 'N'. DTSIX303
00025 10 X303-BATCH-DOC-HOLD-FLG PIC X(01) VALUE SPACES. DTSIX303
00026 10 X303-BATCH-AMT-CNT-ENTR PIC X(01) VALUE 'Y'. DTSIX303
00027 10 X303-BATCH-STATUS PIC X(01) VALUE 'R'. DTSIX303
00028 10 X303-BATCH-HDR-CNT-SW PIC X(01) VALUE 'Y'. DTSIX303
00029 10 X303-BATCH-LAST-SEQ-NO PIC 9(05) VALUE ZERO. DTSIX303
00030 10 X303-BATCH-SYSTEM-DATE PIC X(05). DTSIX303
00031 10 X303-BATCH-MSTR-FILE-SW PIC X(01) VALUE '0'. DTSIX303
00032 10 FILLER PIC X(07) VALUE SPACES. DTSIX303
00033 10 X303-ENTERED-BATCH-CNT-N PIC 9(05). DTSIX303
00034 10 X303-ENTERED-BATCH-AMT-N PIC 9(11)V99. DTSIX303
00035 10 FILLER PIC X(05) VALUE SPACES. DTSIX303
00036 10 X303-COMP-BATCH-CNT-N PIC 9(05) VALUE ZERO. DTSIX303
00037 10 X303-COMP-BATCH-AMT-N PIC 9(11)V99 VALUE 0. DTSIX303
00038 10 X303-APPRVL-REQ-TO-POST PIC X(01) VALUE 'N'. DTSIX303
00039 10 X303-ALL-DOCS-APPRVD PIC X(01) VALUE SPACES. DTSIX303
00040 10 X303-BATCH-RTI-ERR-IND PIC X(01) VALUE SPACES. DTSIX303
00041 10 FILLER PIC X(618) VALUE SPACES. DTSIX303