DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
29
Copybook/DTSIX305.cpy
Normal file
29
Copybook/DTSIX305.cpy
Normal file
@ -0,0 +1,29 @@
|
||||
00001 ***** 07/01/08
|
||||
00002 * DTSIX305
|
||||
00003 * DTSIX305 R*STARS 'DAFRIN' OUTBOUND INTERFACE DATA LV001
|
||||
00004 * DTSIX305
|
||||
00005 * DATA RECORD FOR INFORMATION ABOUT REFUNDS THAT IS DTSIX305
|
||||
00006 * RETURNED FROM THE CFO. DTSIX305
|
||||
00007 * DTSIX305
|
||||
00008 * DTSIX305
|
||||
00009 ***** DTSIX305
|
||||
00010 DTSIX305
|
||||
00011 10 X305-BATCH-AGY PIC X(03). DTSIX305
|
||||
00012 10 X305-BATCH-DATE-X PIC X(08). DTSIX305
|
||||
00013 10 X305-BATCH-DATE-9 REDEFINES X305-BATCH-DATE-X DTSIX305
|
||||
00014 PIC 9(08). DTSIX305
|
||||
00015 10 X305-BATCH-TYPE PIC X(01). DTSIX305
|
||||
00016 10 X305-BATCH-NO PIC 9(03). DTSIX305
|
||||
00017 10 X305-BATCH-SEQ-NO PIC 9(05). DTSIX305
|
||||
00018 10 X305-AMOUNT PIC -----------9.99. DTSIX305
|
||||
00019 10 X305-VENDOR-NO. DTSIX305
|
||||
00020 15 X305-VENDOR-PFX PIC X(01). DTSIX305
|
||||
00021 15 X305-FEIN PIC 9(09). DTSIX305
|
||||
00022 10 X305-INVOICE-NO PIC X(14). DTSIX305
|
||||
00023 10 X305-CURR-DOC-NO PIC X(08). DTSIX305
|
||||
00024 10 X305-CURR-DOC-NO-SFX PIC X(03). DTSIX305
|
||||
00025 10 X305-WARRANT-NO PIC X(09). DTSIX305
|
||||
00026 10 X305-WARRANT-DATE PIC 9(08). DTSIX305
|
||||
00027 10 X305-APPROVAL-DATE PIC 9(08). DTSIX305
|
||||
00028 10 X305-TRANS-YR PIC 9(02). DTSIX305
|
||||
00029 10 X305-PROGRAM-CD PIC X(04). DTSIX305
|
||||
Reference in New Issue
Block a user