37 lines
2.8 KiB
COBOL
37 lines
2.8 KiB
COBOL
00001 ***** 02/13/99
|
|
00002 * DTSIR746
|
|
00003 * DTSIR746 BATCH ADDRESS UPDATE ADDRESS ERROR REPORT. LV002
|
|
00004 * DTSIR746
|
|
00005 * CL**2
|
|
00006 * 02/13/1999 REVEIWED AND MODIFIED FOR DC. EHH CL**2
|
|
00007 * CL**2
|
|
00008 ***** DTSIR746
|
|
00009 DTSIR746
|
|
00010 10 R746-LENGTH PIC S9(04) COMP. DTSIR746
|
|
00011 DTSIR746
|
|
00012 10 R746-SORT-AREA. DTSIR746
|
|
00013 15 R746-REC-TYPE PIC X(03) VALUE '746'. DTSIR746
|
|
00014 15 R746-EMP-NO PIC S9(07) COMP-3. DTSIR746
|
|
00015 15 R746-MSTR-REC-TYPE PIC S9(04) COMP. DTSIR746
|
|
00016 15 R746-ADDR-ID-NO PIC S9(03) COMP-3. DTSIR746
|
|
00017 DTSIR746
|
|
00018 10 R746-DATA-AREA. DTSIR746
|
|
00019 15 R746-PRIMARY-NAME PIC X(40). CL**2
|
|
00020 DTSIR746
|
|
00021 15 R746-ADDR-TYPE PIC X(03). DTSIR746
|
|
00022 DTSIR746
|
|
00023 15 R746-PRE-ADDRESS. DTSIR746
|
|
00024 20 R746-PRE-ATTN-LINE PIC X(40). DTSIR746
|
|
00025 20 R746-PRE-DELIV-LINE-1 PIC X(40). CL**2
|
|
00026 20 R746-PRE-DELIV-LINE-2 PIC X(40). CL**2
|
|
00027 20 R746-PRE-CITY PIC X(25). DTSIR746
|
|
00028 20 R746-PRE-ST PIC X(02). DTSIR746
|
|
00029 20 R746-PRE-ZIP PIC X(10). DTSIR746
|
|
00030 20 R746-PRE-ADVANCED-BARCODE CL**2
|
|
00031 PIC X(14). CL**2
|
|
00032 DTSIR746
|
|
00033 15 R746-MSG-CNT PIC S9(03) COMP-3. DTSIR746
|
|
00034 DTSIR746
|
|
00035 15 R746-MSG-TEXT OCCURS 3 TIMES DTSIR746
|
|
00036 PIC X(60). DTSIR746
|