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

67
Copybook/DTSIMRFD.cpy Normal file
View File

@ -0,0 +1,67 @@
00001 ***** 07/01/08
00002 * DTSIMRFD
00003 * DTSIMRFD MASTER FILE 'REFUND' RECORD LV001
00004 * DEFINITION. DTSIMRFD
00005 * DTSIMRFD
00006 * DTSIMRFD
00007 * 02/06/2008 INITIAL DEVELOPMENT. GD DTSIMRFD
00008 * DTSIMRFD
00009 ***** DTSIMRFD
00010 DTSIMRFD
00011 10 MRFD-KEY-AREA. DTSIMRFD
00012 15 MRFD-EMP-NO PIC S9(07) COMP-3. DTSIMRFD
00013 15 MRFD-REC-TYPE PIC S9(04) COMP. DTSIMRFD
00014 88 MRFD-RFD-88 VALUE +50. DTSIMRFD
00015 15 MRFD-TAX-DOC-NO. DTSIMRFD
00016 20 MRFD-TAX-BATCH-NO PIC S9(05) COMP-3. DTSIMRFD
00017 20 MRFD-TAX-ITEM-NO PIC S9(03) COMP-3. DTSIMRFD
00018 15 MRFD-KEY-FILLER PIC X(05). DTSIMRFD
00019 DTSIMRFD
00020 10 MRFD-PURGE-DATE PIC S9(09) COMP-3. DTSIMRFD
00021 DTSIMRFD
00022 10 MRFD-DATA-AREA. DTSIMRFD
00023 15 MRFD-TAX-RF-TYPE PIC X(02). DTSIMRFD
00024 88 MRFD-RF-88 VALUE 'RF'. DTSIMRFD
00025 88 MRFD-RR-88 VALUE 'RR'. DTSIMRFD
00026 DTSIMRFD
00027 15 MRFD-REFUND-AMT PIC S9(09)V9(02) COMP-3. DTSIMRFD
00028 DTSIMRFD
00029 15 MRFD-CFO-AGENCY PIC X(03). DTSIMRFD
00030 DTSIMRFD
00031 15 MRFD-CFO-TYPE PIC X(01). DTSIMRFD
00032 DTSIMRFD
00033 15 MRFD-CFO-REQUEST-DATE PIC 9(08). DTSIMRFD
00034 DTSIMRFD
00035 15 MRFD-CFO-BATCH-NO PIC 9(03). DTSIMRFD
00036 DTSIMRFD
00037 15 MRFD-CFO-SEQ-NO PIC 9(05). DTSIMRFD
00038 DTSIMRFD
00039 15 MRFD-CURR-DOC-NO PIC X(08). DTSIMRFD
00040 DTSIMRFD
00041 15 MRFD-CURR-DOC-NO-SFX PIC X(03). DTSIMRFD
00042 DTSIMRFD
00043 15 MRFD-RESPONSIBLE-OP-ID PIC X(08). DTSIMRFD
00044 DTSIMRFD
00045 15 MRFD-CFO-CHECK-DATE PIC S9(09) COMP-3. DTSIMRFD
00046 DTSIMRFD
00047 15 MRFD-CFO-CHECK-NO PIC X(09). DTSIMRFD
00048 DTSIMRFD
00049 15 MRFD-CFO-APPROVAL-DATE PIC S9(09) COMP-3. DTSIMRFD
00050 DTSIMRFD
00051 ***************************************************************** DTSIMRFD
00052 * BATCH AND ITEM NUMBER OF THE ORIGINAL PAYMENT DTSIMRFD
00053 * FROM WHICH THE REFUND IS ISSUED. DTSIMRFD
00054 ***************************************************************** DTSIMRFD
00055 15 MRFD-PAY-BATCH-NO PIC S9(05) COMP-3. DTSIMRFD
00056 15 MRFD-PAY-ITEM-NO PIC S9(03) COMP-3. DTSIMRFD
00057 DTSIMRFD
00058 15 FILLER PIC X(18). DTSIMRFD
00059 DTSIMRFD
00060 15 MRFD-CONVERTED-IND PIC X(01). DTSIMRFD
00061 88 MRFD-CONVERTED-88 VALUE 'Y'. DTSIMRFD
00062 88 MRFD-NOT-CONVERTED-88 VALUE 'N'. DTSIMRFD
00063 DTSIMRFD
00064 DTSIMRFD
00065 15 MRFD-ESTB-DATE PIC S9(09) COMP-3. DTSIMRFD
00066 DTSIMRFD
00067 15 MRFD-CHNG-DATE PIC S9(09) COMP-3. DTSIMRFD