75 lines
5.9 KiB
COBOL
75 lines
5.9 KiB
COBOL
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
|