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