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