103 lines
8.1 KiB
COBOL
103 lines
8.1 KiB
COBOL
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
|