55 lines
4.3 KiB
COBOL
55 lines
4.3 KiB
COBOL
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
|