48 lines
3.7 KiB
COBOL
48 lines
3.7 KiB
COBOL
00001 ***** 10/15/98
|
|
00002 * DTSIL112
|
|
00003 * DTSIL112 FORMAT ADDRESS FOR MAILING. LV005
|
|
00004 * DTSIL112
|
|
00005 ***** DTSIL112
|
|
00006 SKIP1 DTSIL112
|
|
00007 10 L112-ADDR-TYPE PIC X(01). DTSIL112
|
|
00008 88 L112-TAD-ADDR-88 VALUE '1'. DTSIL112
|
|
00009 88 L112-TAA-ADDR-88 VALUE '2'. DTSIL112
|
|
00010 88 L112-OPO-ADDR-88 VALUE '3'. DTSIL112
|
|
00011 88 L112-BAA-ADDR-88 VALUE '4'. DTSIL112
|
|
00012 88 L112-FID-MAILING-ADDR-88 VALUE '8'. CL**5
|
|
00013 88 L112-FID-PHYSICAL-ADDR-88 VALUE '9'. CL**5
|
|
00014 SKIP1 DTSIL112
|
|
00015 10 L112-ANCHOR-LINE-IND PIC X(01). DTSIL112
|
|
00016 88 L112-ANCHOR-FIRST-88 VALUE 'F'. DTSIL112
|
|
00017 88 L112-ANCHOR-LAST-88 VALUE 'L'. DTSIL112
|
|
00018 SKIP1 DTSIL112
|
|
00019 10 L112-PRIMARY-NAME PIC X(40). CL**2
|
|
00020 SKIP1 DTSIL112
|
|
00021 10 L112-NAME-ADDRESS-AREA. DTSIL112
|
|
00022 15 L112-NAME PIC X(40). DTSIL112
|
|
00023 SKIP1 DTSIL112
|
|
00024 15 L112-TITLE PIC X(20). DTSIL112
|
|
00025 SKIP1 DTSIL112
|
|
00026 15 L112-ADDRESS. DTSIL112
|
|
00027 20 L112-ATTN-LINE PIC X(40). DTSIL112
|
|
00028 20 L112-DELIV-LINE-1 PIC X(40). CL**4
|
|
00029 20 L112-DELIV-LINE-2 PIC X(40). CL**4
|
|
00030 20 L112-CITY PIC X(25). DTSIL112
|
|
00031 20 L112-ST PIC X(02). DTSIL112
|
|
00032 20 L112-ZIP PIC X(10). DTSIL112
|
|
00033 20 L112-ADVANCED-BARCODE CL**4
|
|
00034 PIC X(14). CL**4
|
|
00035 SKIP3 DTSIL112
|
|
00036 10 L112-MAILING-ADDRESS. DTSIL112
|
|
00037 15 L112-MAILING-LINE-1 PIC X(40). DTSIL112
|
|
00038 15 L112-MAILING-LINE-2 PIC X(40). DTSIL112
|
|
00039 15 L112-MAILING-LINE-3 PIC X(40). DTSIL112
|
|
00040 15 L112-MAILING-LINE-4 PIC X(40). DTSIL112
|
|
00041 15 L112-MAILING-LINE-5 PIC X(40). DTSIL112
|
|
00042 10 FILLER REDEFINES L112-MAILING-ADDRESS. DTSIL112
|
|
00043 15 L112-MAILING-LINE OCCURS 5 TIMES DTSIL112
|
|
00044 INDEXED BY L112-MAILING-IDX DTSIL112
|
|
00045 PIC X(40). DTSIL112
|
|
00046 SKIP1 DTSIL112
|
|
00047 10 FILLER PIC X(86). DTSIL112
|