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