00001 *****                                                             09/08/98
00002 *                                                                 DTSIL073
00003 *    DTSIL073    TELEPHONE NUMBER EDIT MODULE LINKAGE.               LV003
00004 *                                                                 DTSIL073
00005 *****                                                             DTSIL073
00006                                                                      CL**3
00007          10  L073-RESULT-IND             PIC  X(01).              DTSIL073
00008              88  L073-VALID                  VALUE '0'.           DTSIL073
00009              88  L073-NOT-VALID              VALUE '1'.           DTSIL073
00010                                                                      CL**3
00011          10  L073-TELEPHONE.                                      DTSIL073
00012              25  L073-AREA-CD            PIC  X(03).              DTSIL073
00013              25  L073-PREFIX             PIC  X(03).              DTSIL073
00014              25  L073-SUFFIX             PIC  X(04).              DTSIL073
00015              25  L073-EXT                PIC  X(05).                 CL**2
00016                                                                      CL**3
00017          10  L073-ST                     PIC  X(02).              DTSIL073
00018                                                                      CL**3
00019          10  L073-ZIP                    PIC  X(10).              DTSIL073
00020                                                                      CL**3
00021          10  FILLER                      PIC  X(03).              DTSIL073