00001 *****                                                             11/12/98
00002 *                                                                 DTSIL064
00003 *    DTSIL064    LOOKUP ADDRESS USED TO DETERMINE FIELD              LV002
00004 *                REP ID MODULE LINKAGE.                           DTSIL064
00005 *                                                                 DTSIL064
00006 *****                                                             DTSIL064
00007                                                                   DTSIL064
00008          10  L064-EMP-NO                 PIC S9(07)  COMP-3.      DTSIL064
00009                                                                   DTSIL064
00010          10  L064-TAX-REC-ADDR-EXISTS-IND   PIC X(01).               CL**2
00011              88  L064-TAX-REC-ADDR-NO-88        VALUE 'N'.           CL**2
00012              88  L064-TAX-REC-ADDR-YES-88       VALUE 'Y'.           CL**2
00013      SKIP3                                                        DTSIL064
00014          10  L064-RESULT-IND             PIC  X(01).              DTSIL064
00015              88  L064-OK-88                  VALUE '0'.           DTSIL064
00016              88  L064-ADDR-NOT-FOUND-88      VALUE '1'.           DTSIL064
00017              88  L064-FILE-CLOSED-88         VALUE '9'.           DTSIL064
00018              88  L064-NOT-OK-88              VALUE '1' '9'.       DTSIL064
00019      SKIP3                                                        DTSIL064
00020          10  L064-RETURN-AREA.                                    DTSIL064
00021              15  L064-ADDR-ID-NO         PIC S9(03)  COMP-3.      DTSIL064
00022                                                                   DTSIL064
00023              15  L064-ADDRESS.                                    DTSIL064
00024                  20  L064-ATTN-LINE      PIC  X(40).              DTSIL064
00025                  20  L064-DELIV-LINE-1   PIC  X(40).                 CL**2
00026                  20  L064-DELIV-LINE-2   PIC  X(40).                 CL**2
00027                  20  L064-CITY           PIC  X(25).              DTSIL064
00028                  20  L064-ST             PIC  X(02).              DTSIL064
00029                  20  L064-ZIP            PIC  X(10).              DTSIL064
00030                                                                   DTSIL064
00031              15  L064-VOICE.                                      DTSIL064
00032                  20  L064-VOICE-AREA-CD  PIC  X(03).              DTSIL064
00033                  20  L064-VOICE-PREFIX   PIC  X(03).              DTSIL064
00034                  20  L064-VOICE-SUFFIX   PIC  X(04).              DTSIL064
00035                  20  L064-VOICE-EXT      PIC  X(05).                 CL**2
00036                                                                   DTSIL064
00037          10  FILLER                      PIC  X(47).              DTSIL064
00038                                                                   DTSIL064
00039          10  L064-MSG-AREA.                                       DTSIL064
00040              15  L064-MSG-ID             PIC  X(04).              DTSIL064
00041              15  L064-MSG-TEXT           PIC  X(60).              DTSIL064