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 ***** 01 X305. 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