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