00001  IDENTIFICATION DIVISION.                                         08/06/98
00002  PROGRAM-ID.             DTSCU021                                 DTSCU021
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV003
00004  DATE-WRITTEN            NOVEMBER 1991.                           DTSCU021
00005  DATE-COMPILED.                                                   DTSCU021
00006      SKIP3                                                        DTSCU021
00007 *****                                                             DTSCU021
00008 *                                                                 DTSCU021
00009 *    FUNCTION:   FORMAT/EDIT TELEPHONE NUMBER FROM SCREEN         DTSCU021
00010 *                                                                 DTSCU021
00011 *                                                                 DTSCU021
00012 *    MODIFICATION LOG:                                            DTSCU021
00013 *                                                                 DTSCU021
00014 *    08/04/98    INITIAL DEVELOPMENT.  MODIFIED FROM MACCU021.       CL**2
00015 *                WORK ORDER:                 PROGRAMMER: ZL1         CL**2
00016 *                                                                 DTSCU021
00017 *                                                                 DTSCU021
00018 *                                                                 DTSCU021
00019 *    DESCRIPTION:                                                 DTSCU021
00020 *                                                                 DTSCU021
00021 *****                                                             DTSCU021
00022  SKIP3                                                            DTSCU021
00023  ENVIRONMENT DIVISION.                                            DTSCU021
00024  DATA DIVISION.                                                   DTSCU021
00025  SKIP3                                                            DTSCU021
00026  WORKING-STORAGE SECTION.                                         DTSCU021
000265 77  PAN-VALET PICTURE X(24) VALUE '003DTSCU021  08/06/98'.       DTSCU021
00027  LINKAGE SECTION.                                                 DTSCU021
00028  01  DFHCOMMAREA.                                                 DTSCU021
00029  ++INCLUDE DTSIL021                                                  CL**3
00030  PROCEDURE DIVISION.                                              DTSCU021
00031      SKIP2                                                        DTSCU021
00032      IF  (L021-S-TNO1 = SPACE OR LOW-VALUES)                      DTSCU021
00033      AND (L021-S-TNO2 = SPACE OR LOW-VALUES)                      DTSCU021
00034      AND (L021-S-TNO3 = SPACE OR LOW-VALUES)                      DTSCU021
00035      AND (L021-S-TNO4 = SPACE OR LOW-VALUES)                      DTSCU021
00036          SET L021-NO-ENTRY TO TRUE                                   CL**2
00037          MOVE SPACE TO L021-TNO                                   DTSCU021
00038          GO TO INIT0199-GO-BACK.                                  DTSCU021
00039                                                                   DTSCU021
00040      IF L021-S-TNO1 = LOW-VALUE                                   DTSCU021
00041          MOVE SPACE TO L021-S-TNO1.                               DTSCU021
00042      IF L021-S-TNO4 = LOW-VALUE                                   DTSCU021
00043          MOVE SPACE TO L021-S-TNO4.                               DTSCU021
00044      SKIP2                                                        DTSCU021
00045      IF L021-S-TNO1 = SPACE                                       DTSCU021
00046          NEXT SENTENCE                                            DTSCU021
00047      ELSE                                                         DTSCU021
00048          IF L021-S-TNO1 NOT NUMERIC                               DTSCU021
00049          OR L021-S-TNO1 = ZERO                                    DTSCU021
00050              PERFORM NOT-VALID-ENTRY THRU NOT-VALID-EXIT          DTSCU021
00051              GO TO INIT0199-GO-BACK.                              DTSCU021
00052                                                                   DTSCU021
00053      IF L021-S-TNO2 NOT NUMERIC                                   DTSCU021
00054      OR L021-S-TNO2 = ZERO                                        DTSCU021
00055          PERFORM NOT-VALID-ENTRY THRU NOT-VALID-EXIT              DTSCU021
00056          GO TO INIT0199-GO-BACK.                                  DTSCU021
00057                                                                   DTSCU021
00058      IF L021-S-TNO3 NOT NUMERIC                                   DTSCU021
00059          PERFORM NOT-VALID-ENTRY THRU NOT-VALID-EXIT              DTSCU021
00060          GO TO INIT0199-GO-BACK.                                  DTSCU021
00061                                                                   DTSCU021
00062      MOVE L021-S-TNO1 TO L021-TNO-AREA-CD.                        DTSCU021
00063      MOVE L021-S-TNO2 TO L021-TNO-PREFIX.                         DTSCU021
00064      MOVE L021-S-TNO3 TO L021-TNO-SUFFIX.                         DTSCU021
00065      MOVE L021-S-TNO4 TO L021-TNO-EXT.                            DTSCU021
00066      SET L021-VALID TO TRUE.                                         CL**2
00067  INIT0199-GO-BACK.                                                DTSCU021
00068      EXEC CICS                                                    DTSCU021
00069          RETURN                                                   DTSCU021
00070      END-EXEC.                                                    DTSCU021
00071      GOBACK.                                                      DTSCU021
00072  NOT-VALID-ENTRY.                                                 DTSCU021
00073      SET L021-NOT-VALID TO TRUE.                                     CL**2
00074      MOVE SPACE TO L021-TNO.                                      DTSCU021
00075  NOT-VALID-EXIT.                                                  DTSCU021
00076      EXIT.                                                        DTSCU021
