00001 ***** 03/01/12 00002 * DTSIL111 00003 * DTSIL111 ADDRESS LOOKUP. LV015 00004 * DTSIL111 00005 * REVISED FOR DC: OCTOBER 1998 - GD DTSIL111 00006 * DTSIL111 00007 * WHEN REQUESTING A TAX MAILING ADDRESS, THE CALLING DTSIL111 00008 * PROGRAM MUST SET L111-ID-NO-TAD-88 TO TRUE. DTSIL111 00009 * DTSIL111 00010 * WHEN REQUESTING A BENEFITS ADDRESS, THE CALLING DTSIL111 00011 * PROGRAM MUST SET L111-ID-NO-BAA-PRIM-88 TO TRUE. DTSIL111 00012 * DTSIL111 00013 ***** DTSIL111 00014 SKIP1 DTSIL111 00015 10 L111-EMP-NO PIC S9(07) COMP-3. DTSIL111 00016 SKIP1 DTSIL111 00017 10 L111-ADDR-TYPE PIC X(01). DTSIL111 00018 88 L111-LOOKUP-TAD-88 VALUE '1'. DTSIL111 00019 88 L111-LOOKUP-TAA-88 VALUE '2'. DTSIL111 00020 88 L111-LOOKUP-OPO-88 VALUE '3'. DTSIL111 00021 88 L111-LOOKUP-BAA-88 VALUE '4'. DTSIL111 00022 SKIP1 DTSIL111 00023 10 L111-ID-NO PIC S9(03) COMP-3. DTSIL111 00024 88 L111-ID-NO-BAA-PRIM-88 VALUE +0. DTSIL111 00025 88 L111-ID-NO-TAD-MAIL-88 VALUE +1. DTSIL111 00026 88 L111-ID-NO-TAD-PHYS-88 VALUE +2. DTSIL111 00027 SKIP1 DTSIL111 00028 10 L111-RESULT-IND PIC X(01). DTSIL111 00029 88 L111-ADDR-FOUND-88 VALUE '0'. DTSIL111 00030 88 L111-ADDR-NOT-FOUND-88 VALUE '1'. DTSIL111 00031 88 L111-FILE-CLOSED-88 VALUE '9'. DTSIL111 00032 SKIP2 DTSIL111 00033 10 L111-RETURN-AREA. DTSIL111 00034 15 L111-NAME PIC X(40). DTSIL111 00035 SKIP1 DTSIL111 00036 15 L111-TITLE PIC X(20). DTSIL111 00037 SKIP1 DTSIL111 00038 15 L111-ADDRESS. DTSIL111 00039 20 L111-ATTN-LINE PIC X(40). DTSIL111 00040 20 L111-DELIV-LINE-1 PIC X(40). DTSIL111 00041 20 L111-DELIV-LINE-2 PIC X(40). DTSIL111 00042 20 L111-CITY PIC X(25). DTSIL111 00043 20 L111-ST PIC X(02). DTSIL111 00044 88 L111-FOREIGN-88 VALUE '**'. DTSIL111 00045 20 L111-ZIP PIC X(10). DTSIL111 00046 20 L111-ADVANCED-BARCODE PIC X(14). DTSIL111 00047 SKIP1 DTSIL111 00048 10 L111-MSG-AREA. DTSIL111 00049 15 L111-MSG-ID PIC X(04). DTSIL111 00050 15 L111-MSG-TEXT PIC X(60). DTSIL111 00051 SKIP1 DTSIL111 00052 10 L111-EMAIL-UC30-IND PIC X(01). DTSIL111 00053 10 FILLER PIC X(42). DTSIL111