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
