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