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

71
CICS/DTSCU020.cob Normal file
View File

@ -0,0 +1,71 @@
00001 IDENTIFICATION DIVISION. 08/06/98
00002 PROGRAM-ID. DTSCU020 DTSCU020
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV003
00004 DATE-WRITTEN NOVEMBER 1991. DTSCU020
00005 DATE-COMPILED. DTSCU020
00006 SKIP3 DTSCU020
00007 ***** DTSCU020
00008 * DTSCU020
00009 * FUNCTION: FORMAT/EDIT SOCIAL SECURITY NUMBER FROM SCREEN DTSCU020
00010 * DTSCU020
00011 * DTSCU020
00012 * MODIFICATION LOG: DTSCU020
00013 * DTSCU020
00014 * 08/04/98 INITIAL DEVELOPMENT. MODIFIED FROM MACCU020. CL**2
00015 * WORK ORDER: PROGRAMMER: ZL1 CL**2
00016 * DTSCU020
00017 * DTSCU020
00018 * DESCRIPTION: DTSCU020
00019 * DTSCU020
00020 ***** DTSCU020
00021 SKIP3 DTSCU020
00022 ENVIRONMENT DIVISION. DTSCU020
00023 DATA DIVISION. DTSCU020
00024 SKIP3 DTSCU020
00025 WORKING-STORAGE SECTION. DTSCU020
000255 77 PAN-VALET PICTURE X(24) VALUE '003DTSCU020 08/06/98'. DTSCU020
00026 01 WRK-AREA. DTSCU020
00027 05 WS-SOCIAL-SEC-NO-X. DTSCU020
00028 10 WS-SOC-SEC1 PIC 9(03). DTSCU020
00029 10 WS-SOC-SEC2 PIC 9(02). DTSCU020
00030 10 WS-SOC-SEC3 PIC 9(04). DTSCU020
00031 05 WS-SOCIAL-SEC-NO-9 REDEFINES WS-SOCIAL-SEC-NO-X DTSCU020
00032 PIC 9(09). DTSCU020
00033 LINKAGE SECTION. DTSCU020
00034 01 DFHCOMMAREA. DTSCU020
00035 ++INCLUDE DTSIL020 CL**3
00036 PROCEDURE DIVISION. DTSCU020
00037 SKIP2 DTSCU020
00038 IF (L020-S-SSN1 = SPACES OR LOW-VALUES) DTSCU020
00039 AND DTSCU020
00040 (L020-S-SSN2 = SPACES OR LOW-VALUES) DTSCU020
00041 AND DTSCU020
00042 (L020-S-SSN3 = SPACE OR LOW-VALUES) DTSCU020
00043 SET L020-NO-ENTRY TO TRUE CL**2
00044 MOVE ZERO TO L020-SSN DTSCU020
00045 GO TO INIT0199-GO-BACK. DTSCU020
00046 IF (L020-S-SSN1 NOT NUMERIC) DTSCU020
00047 OR DTSCU020
00048 (L020-S-SSN2 NOT NUMERIC) DTSCU020
00049 OR DTSCU020
00050 (L020-S-SSN3 NOT NUMERIC) DTSCU020
00051 PERFORM NOT-VALID THRU NOT-VALID-EXIT DTSCU020
00052 GO TO INIT0199-GO-BACK. DTSCU020
00053 MOVE L020-S-SSN1 TO WS-SOC-SEC1. DTSCU020
00054 MOVE L020-S-SSN2 TO WS-SOC-SEC2. DTSCU020
00055 MOVE L020-S-SSN3 TO WS-SOC-SEC3. DTSCU020
00056 IF WS-SOCIAL-SEC-NO-9 = ZERO DTSCU020
00057 PERFORM NOT-VALID THRU NOT-VALID-EXIT DTSCU020
00058 ELSE DTSCU020
00059 MOVE WS-SOCIAL-SEC-NO-9 TO L020-SSN DTSCU020
00060 SET L020-VALID TO TRUE. CL**2
00061 INIT0199-GO-BACK. DTSCU020
00062 EXEC CICS DTSCU020
00063 RETURN DTSCU020
00064 END-EXEC. DTSCU020
00065 GOBACK. DTSCU020
00066 NOT-VALID. DTSCU020
00067 SET L020-NOT-VALID TO TRUE. CL**2
00068 MOVE ZERO TO L020-SSN. DTSCU020
00069 NOT-VALID-EXIT. DTSCU020
00070 EXIT. DTSCU020