00001 *****                                                             08/24/98
00002 *                                                                 DTSIL021
00003 *    DTSIL021  TELEPHONE NUMBER FROM SCREEN FORMAT/EDIT              LV003
00004 *              MODULE LINKAGE.                                    DTSIL021
00005 *                                                                 DTSIL021
00006 *****                                                             DTSIL021
00007      SKIP1                                                        DTSIL021
00008          10  L021-RESULT-IND             PIC  X(01).              DTSIL021
00009              88  L021-NO-ENTRY               VALUE '0'.           DTSIL021
00010              88  L021-VALID                  VALUE '1'.           DTSIL021
00011              88  L021-NOT-VALID              VALUE '2'.           DTSIL021
00012      SKIP1                                                        DTSIL021
00013          10  L021-S-TNO-AREA.                                     DTSIL021
00014              15  L021-S-TNO1-AREA.                                DTSIL021
00015                  20  L021-S-TNO1-L       PIC S9(04)      COMP.    DTSIL021
00016                  20  L021-S-TNO1-A       PIC  X(01).              DTSIL021
00017                  20  L021-S-TNO1         PIC  X(03).              DTSIL021
00018              15  L021-S-TNO2-AREA.                                DTSIL021
00019                  20  L021-S-TNO2-L       PIC S9(04)      COMP.    DTSIL021
00020                  20  L021-S-TNO2-A       PIC  X(01).              DTSIL021
00021                  20  L021-S-TNO2         PIC  X(03).              DTSIL021
00022              15  L021-S-TNO3-AREA.                                DTSIL021
00023                  20  L021-S-TNO3-L       PIC S9(04)      COMP.    DTSIL021
00024                  20  L021-S-TNO3-A       PIC  X(01).              DTSIL021
00025                  20  L021-S-TNO3         PIC  X(04).              DTSIL021
00026              15  L021-S-TNO4-AREA.                                DTSIL021
00027                  20  L021-S-TNO4-L       PIC S9(04)      COMP.    DTSIL021
00028                  20  L021-S-TNO4-A       PIC  X(01).              DTSIL021
00029                  20  L021-S-TNO4         PIC  X(05).                 CL**2
00030      SKIP1                                                        DTSIL021
00031          10  L021-TNO.                                            DTSIL021
00032              15  L021-TNO-AREA-CD        PIC  X(03).              DTSIL021
00033              15  L021-TNO-PREFIX         PIC  X(03).              DTSIL021
00034              15  L021-TNO-SUFFIX         PIC  X(04).              DTSIL021
00035              15  L021-TNO-EXT            PIC  X(05).                 CL**2
00036      SKIP1                                                        DTSIL021
00037          10  FILLER                      PIC  X(19).                 CL**2