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