00001 *****                                                             09/08/98
00002 *                                                                 DTSIL203
00003 *    DTSIL203    DETERMINE FIELD ZIP AND FIELD STATE CODES           LV003
00004 *                                                                 DTSIL203
00005 *****                                                             DTSIL203
00006      SKIP1                                                        DTSIL203
00007          10  L203-RESULT-IND               PIC  X(01).               CL**2
00008              88  L203-OK-88                      VALUE '1'.       DTSIL203
00009              88  L203-ADDR-NOT-FOUND-88          VALUE '2'.       DTSIL203
00010              88  L203-FILE-CLOSED-88             VALUE '9'.       DTSIL203
00011      SKIP1                                                        DTSIL203
00012          10  L203-EMP-NO                   PIC S9(07)  COMP-3.       CL**2
00013      SKIP1                                                        DTSIL203
00014          10  L203-TAX-REC-ADDR-EXISTS-IND  PIC  X(01).               CL**2
00015              88  L203-TAX-REC-ADDR-NO-88         VALUE 'N'.          CL**2
00016              88  L203-TAX-REC-ADDR-YES-88        VALUE 'Y'.          CL**2
00017      SKIP1                                                        DTSIL203
00018          10  L203-FLD-ZIP                  PIC  X(10).               CL**2
00019          10  L203-FLD-STATE                PIC  X(02).               CL**3
00020      SKIP1                                                        DTSIL203
00021          10  FILLER                        PIC  X(36).               CL**2
00022      SKIP1                                                        DTSIL203
00023          10  L203-MSG-AREA.                                       DTSIL203
00024              15  L203-MSG-ID               PIC  X(04).               CL**2
00025              15  L203-MSG-TEXT             PIC  X(60).               CL**2