71 lines
5.5 KiB
COBOL
71 lines
5.5 KiB
COBOL
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
|