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

54
Copybook/DTSIR303.cpy Normal file
View File

@ -0,0 +1,54 @@
00001 ***** 07/01/08
00002 * DTSIR303
00003 * DTSIR303 REFUND EXPORT REPORT RECORD. LV008
00004 * DTSIR303
00005 * 02/06/2008 MODIFIED FOR AUTOMATED REFUND PROCESS. GD DTSIR303
00006 * DTSIR303
00007 ***** DTSIR303
00008 DTSIR303
00009 10 R303-LENGTH PIC S9(04) COMP. DTSIR303
00010 DTSIR303
00011 DTSIR303
00012 10 R303-SORT-AREA. DTSIR303
00013 15 R303-REC-TYPE PIC X(03) VALUE '303'. DTSIR303
00014 DTSIR303
00015 15 R303-EMP-NO PIC S9(07) COMP-3. DTSIR303
00016 DTSIR303
00017 15 R303-CFO-AGENCY PIC X(03). DTSIR303
00018 DTSIR303
00019 15 R303-CFO-TYPE PIC X(01). DTSIR303
00020 DTSIR303
00021 15 R303-CFO-REQUEST-DATE PIC S9(09) COMP-3. DTSIR303
00022 DTSIR303
00023 15 R303-CFO-BATCH-NO PIC 9(03). DTSIR303
00024 DTSIR303
00025 15 R303-CFO-SEQ-NO PIC 9(05). DTSIR303
00026 DTSIR303
00027 10 R303-DATA-AREA. DTSIR303
00028 15 R303-CURR-DOC-NO PIC X(08). DTSIR303
00029 DTSIR303
00030 15 R303-CURR-DOC-NO-SFX PIC X(03). DTSIR303
00031 DTSIR303
00032 15 R303-CURR-MAIL-DATE PIC S9(09) COMP-3. DTSIR303
00033 DTSIR303
00034 15 R303-REFUND-AMT PIC S9(09)V99 DTSIR303
00035 COMP-3. DTSIR303
00036 15 R303-PRIMARY-NAME PIC X(40). DTSIR303
00037 DTSIR303
00038 15 R303-FEIN PIC S9(09) COMP-3. DTSIR303
00039 DTSIR303
00040 DTSIR303
00041 15 R303-ADDRESS. DTSIR303
00042 20 R303-ATTN-LINE PIC X(40). DTSIR303
00043 20 R303-DELIV-LINE-1 PIC X(40). DTSIR303
00044 20 R303-DELIV-LINE-2 PIC X(40). DTSIR303
00045 20 R303-CITY PIC X(25). DTSIR303
00046 20 R303-ST PIC X(02). DTSIR303
00047 20 R303-ZIP PIC X(10). DTSIR303
00048 20 R303-ADVANCED-BARCODE DTSIR303
00049 PIC X(14). DTSIR303
00050 DTSIR303
00051 15 R303-FMT-ADDR. DTSIR303
00052 20 R303-FMT-LINE OCCURS 5 TIMES DTSIR303
00053 INDEXED BY R303-FMT-IDX DTSIR303
00054 PIC X(40). DTSIR303