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