00001 *****                                                             10/06/98
00002 *                                                                 DTSIL075
00003 *    DTSIL075    COOPERATING AGENCY ADDRESS LOOKUP                   LV002
00004 *                                                                 DTSIL075
00005 *****                                                             DTSIL075
00006      SKIP1                                                        DTSIL075
00007          10  L075-OPTION                PIC  X(01).               DTSIL075
00008              88  L075-LOOKUP-ADDR-88           VALUE '1'.         DTSIL075
00009      SKIP1                                                        DTSIL075
00010          10  L075-LOOKUP-STATE           PIC  X(02).              DTSIL075
00011      SKIP1                                                        DTSIL075
00012          10  L075-RESULT-IND             PIC  X(01).              DTSIL075
00013              88  L075-ADDR-FOUND-88          VALUE '0'.           DTSIL075
00014              88  L075-ADDR-NOT-FOUND-88      VALUE '1'.           DTSIL075
00015              88  L075-FILE-CLOSED-88         VALUE '9'.           DTSIL075
00016      SKIP3                                                        DTSIL075
00017          10  L075-NAME                   PIC  X(40).              DTSIL075
00018      SKIP1                                                        DTSIL075
00019          10  L075-ADDRESS.                                        DTSIL075
00020              15  L075-ATTN-LINE          PIC  X(40).              DTSIL075
00021              15  L075-DELIV-LINE-1       PIC  X(40).                 CL**2
00022              15  L075-DELIV-LINE-2       PIC  X(40).                 CL**2
00023              15  L075-CITY               PIC  X(25).              DTSIL075
00024              15  L075-ST                 PIC  X(02).              DTSIL075
00025              15  L075-ZIP                PIC  X(10).              DTSIL075
00026              15  L075-ADVANCED-BARCODE   PIC  X(14).                 CL**2
00027      SKIP1                                                        DTSIL075
00028          10  L075-MSG-AREA.                                       DTSIL075
00029              15  L075-MSG-ID             PIC  X(04).              DTSIL075
00030              15  L075-MSG-TEXT           PIC  X(60).              DTSIL075
00031      SKIP1                                                        DTSIL075
00032          10  FILLER                      PIC  X(25).              DTSIL075