DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
102
Copybook/DTSIX304.cpy
Normal file
102
Copybook/DTSIX304.cpy
Normal file
@ -0,0 +1,102 @@
|
||||
00001 ***** 09/13/16
|
||||
00002 * DTSIX304
|
||||
00003 * DTSIX304 R*STARS 'DAFRIN' TRAN INTERFACE DETAIL REC LV001
|
||||
00004 * DTSIX304
|
||||
00005 * DETAIL RECORD FOR THE AUTOMATED REFUND PROCESS. DTSIX304
|
||||
00006 * DTSIX304
|
||||
00007 * DTSIX304
|
||||
00008 * DTSIX304
|
||||
00009 ***** DTSIX304
|
||||
00010 DTSIX304
|
||||
00011 10 X304-BATCH-AGY PIC X(03) VALUE 'UIU'. DTSIX304
|
||||
00012 10 X304-BATCH-DATE PIC X(08). DTSIX304
|
||||
00013 10 X304-BATCH-TYPE PIC X(01) VALUE 'X'. DTSIX304
|
||||
00014 10 X304-BATCH-NUMBER PIC 9(03). DTSIX304
|
||||
00015 10 X304-BATCH-SEQUENCE PIC 9(05). DTSIX304
|
||||
00016 10 X304-OPERATOR-ID PIC X(08) DTSIX304
|
||||
00017 VALUE 'INTERUIU'. DTSIX304
|
||||
00018 10 X304-BATCH-TID PIC X(04) VALUE SPACES. DTSIX304
|
||||
00019 10 X304-EFFECTIVE-DATE PIC X(08). DTSIX304
|
||||
00020 10 X304-APPN-YEAR PIC X(02). DTSIX304
|
||||
00021 10 X304-DISB-METHOD-IND PIC X(01) VALUE SPACES. DTSIX304
|
||||
00022 10 X304-CAPITALIZE-IND PIC X(01) VALUE SPACES. DTSIX304
|
||||
00023 10 X304-TRANS-CODE PIC X(03) VALUE '254'. DTSIX304
|
||||
00024 10 X304-MODIFIER PIC X(01) VALUE SPACES. DTSIX304
|
||||
00025 10 X304-REVERSE PIC X(01) VALUE SPACES. DTSIX304
|
||||
00026 10 X304-AGENCY PIC X(03) VALUE 'UI0'. DTSIX304
|
||||
00027 10 X304-RTI PIC X(06) VALUE SPACES. DTSIX304
|
||||
00028 10 X304-INDEX PIC X(05) DTSIX304
|
||||
00029 VALUE 'CU226'. DTSIX304
|
||||
00030 10 X304-APPN-NUM PIC X(05) VALUE SPACES. DTSIX304
|
||||
00031 10 X304-FUND PIC X(04) VALUE SPACES. DTSIX304
|
||||
00032 10 X304-PCA-NO PIC X(05) DTSIX304
|
||||
00033 VALUE '22004'. DTSIX304
|
||||
00034 10 X304-COMPTROLLER-OBJECT PIC X(04) VALUE SPACES. DTSIX304
|
||||
00035 10 X304-AGENCY-OBJECT PIC X(04) VALUE '4401'. DTSIX304
|
||||
00036 10 X304-PROJ-NO PIC X(06) VALUE SPACES. DTSIX304
|
||||
00037 10 X304-PROJ-PHASE PIC X(02) VALUE SPACES. DTSIX304
|
||||
00038 10 X304-GRANT-NO PIC X(06) VALUE SPACES. DTSIX304
|
||||
00039 10 X304-GRANT-PHASE PIC X(02) VALUE SPACES. DTSIX304
|
||||
00040 10 X304-SUB-GRANTEE PIC X(14) VALUE SPACES. DTSIX304
|
||||
00041 10 X304-AGENCY-CODE-1 PIC X(04) VALUE SPACES. DTSIX304
|
||||
00042 10 X304-AGENCY-CODE-2 PIC X(04) VALUE SPACES. DTSIX304
|
||||
00043 10 X304-AGENCY-CODE-3 PIC X(06) VALUE SPACES. DTSIX304
|
||||
00044 10 X304-AGENCY-GL-ACCOUNT PIC X(08) VALUE SPACES. DTSIX304
|
||||
00045 10 X304-MULTI-PURPOSE-CD PIC X(10) VALUE SPACES. DTSIX304
|
||||
00046 10 X304-GL-ACCT-NO PIC X(04) VALUE SPACES. DTSIX304
|
||||
00047 10 X304-VENDOR-NO. DTSIX304
|
||||
00048 15 X304-VENDOR-PFX PIC X(01) VALUE '9'. DTSIX304
|
||||
00049 15 X304-FEIN PIC 9(09). DTSIX304
|
||||
00050 10 X304-VENDOR-MC PIC X(03) VALUE '000'. DTSIX304
|
||||
00051 10 X304-IRS-IND PIC X(01) VALUE SPACES. DTSIX304
|
||||
00052 10 X304-INVOICE-NO PIC X(14). DTSIX304
|
||||
00053 10 X304-INVOICE-DATE PIC X(08). DTSIX304
|
||||
00054 10 X304-DOC-DATE PIC X(08) VALUE SPACES. DTSIX304
|
||||
00055 10 X304-CURR-DOC-NO PIC X(08). DTSIX304
|
||||
00056 10 X304-CURR-DOC-NO-SFX PIC X(03) VALUE '001'. DTSIX304
|
||||
00057 10 X304-REF-DOC-NO PIC X(08) VALUE SPACES. DTSIX304
|
||||
00058 10 X304-REF-DOC-NO-SFX PIC X(03) VALUE SPACES. DTSIX304
|
||||
00059 10 X304-DUE-DATE PIC X(08) VALUE SPACES. DTSIX304
|
||||
00060 10 X304-SERVICE-DATE PIC X(08) VALUE SPACES. DTSIX304
|
||||
00061 10 X304-PAYMENT-NO PIC X(09) VALUE SPACES. DTSIX304
|
||||
00062 10 X304-PAYMENT-DIST-TYPE PIC X(02) VALUE '00'. DTSIX304
|
||||
00063 10 X304-PROP-NO PIC X(10) VALUE SPACES. DTSIX304
|
||||
00064 10 X304-DEBT-INV-ISSUE-NO PIC X(09) VALUE SPACES. DTSIX304
|
||||
00065 10 X304-FUND-CTL-ORD PIC X(01) VALUE SPACES. DTSIX304
|
||||
00066 10 X304-CONTRACT-NO PIC X(10) VALUE SPACES. DTSIX304
|
||||
00067 10 X304-TRANS-AMT PIC 9(11)V99. DTSIX304
|
||||
00068 10 X304-DISCOUNT-D PIC 9(11)V99 VALUE 0. DTSIX304
|
||||
00069 10 X304-INVOICE-DESCR PIC X(30) VALUE DTSIX304
|
||||
00070 'UI TAX REFUND'. DTSIX304
|
||||
00071 10 X304-CASH-RCPT-PMT-TYPE PIC X(01) VALUE SPACES. DTSIX304
|
||||
00072 10 X304-BANK-NO PIC X(13) VALUE SPACES. DTSIX304
|
||||
00073 10 X304-DISCT-DATE PIC X(08) VALUE SPACES. DTSIX304
|
||||
00074 10 X304-DISCT-TERMS PIC X(02) VALUE SPACES. DTSIX304
|
||||
00075 10 X304-PEN-DATE PIC X(08) VALUE SPACES. DTSIX304
|
||||
00076 10 X304-PEN-TERMS PIC X(02) VALUE SPACES. DTSIX304
|
||||
00077 10 X304-INT-TERMS PIC 9(02)V999 VALUE 0. DTSIX304
|
||||
00078 10 X304-PENALTY-AMOUNT PIC 9(11)V99 VALUE 0. DTSIX304
|
||||
00079 10 X304-VENDOR-NAME PIC X(50). DTSIX304
|
||||
00080 10 X304-VENDOR-ADDR-1 PIC X(50). DTSIX304
|
||||
00081 10 X304-VENDOR-ADDR-2 PIC X(50). DTSIX304
|
||||
00082 10 X304-VENDOR-ADDR-3 PIC X(50). DTSIX304
|
||||
00083 10 X304-VENDOR-ADDR-4 PIC X(50). DTSIX304
|
||||
00084 10 X304-VENDOR-CITY PIC X(20). DTSIX304
|
||||
00085 10 X304-VENDOR-STATE PIC X(02). DTSIX304
|
||||
00086 10 X304-VENDOR-ZIP-1-5 PIC X(05). DTSIX304
|
||||
00087 10 X304-VENDOR-ZIP-6-9 PIC X(04). DTSIX304
|
||||
00088 10 X304-DOC-DEPARTMENT PIC X(03) VALUE 'UIU'. DTSIX304
|
||||
00089 10 X304-ORIGINAL-VENDOR-NO PIC X(10) VALUE SPACES. DTSIX304
|
||||
00090 10 X304-ORIGINAL-VENDOR-SFX PIC X(03) VALUE SPACES. DTSIX304
|
||||
00091 10 X304-CARRIER-CODE PIC X(02) VALUE SPACES. DTSIX304
|
||||
00092 10 X304-COUNTRY-CODE PIC X(03) VALUE SPACES. DTSIX304
|
||||
00093 10 X304-BANK-ID PIC X(03) VALUE '121'. DTSIX304
|
||||
00094 10 X304-GRANT-OBJ PIC X(06) VALUE SPACES. DTSIX304
|
||||
00095 10 X304-TRANSMITTAL-NUMBER PIC X(08) VALUE SPACES. DTSIX304
|
||||
00096 10 X304-ABA-TRANSIT-CODE PIC X(09) VALUE SPACES. DTSIX304
|
||||
00097 10 X304-ACCOUNT-NUMBER PIC X(17) VALUE SPACES. DTSIX304
|
||||
00098 10 X304-ACCOUNT-TYPE PIC X(02) VALUE SPACES. DTSIX304
|
||||
00099 10 X304-INPUT-DATA-SEG-FILLER PIC X(15) VALUE SPACES. DTSIX304
|
||||
00100 10 X304-BAL-TRANS-CODE PIC X(03) VALUE SPACES. DTSIX304
|
||||
00101 10 X304-DOC-SIGN PIC X(01) VALUE SPACES. DTSIX304
|
||||
00102 10 X304-DOC-YEAR PIC X(02) VALUE SPACES. DTSIX304
|
||||
Reference in New Issue
Block a user