giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

77
CICS/DTSCU021.cob Normal file
View File

@ -0,0 +1,77 @@
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