30 lines
2.3 KiB
COBOL
30 lines
2.3 KiB
COBOL
00001 ***** 08/24/98
|
|
00002 * DTSIL020
|
|
00003 * DTSIL020 SOCIAL SECURITY NUMBER FROM SCREEN FORMAT/EDIT LV003
|
|
00004 * MODULE LINKAGE. DTSIL020
|
|
00005 * DTSIL020
|
|
00006 ***** DTSIL020
|
|
00007 SKIP1 DTSIL020
|
|
00008 10 L020-RESULT-IND PIC X(01). DTSIL020
|
|
00009 88 L020-NO-ENTRY VALUE '0'. DTSIL020
|
|
00010 88 L020-VALID VALUE '1'. DTSIL020
|
|
00011 88 L020-NOT-VALID VALUE '2'. DTSIL020
|
|
00012 SKIP1 DTSIL020
|
|
00013 10 L020-S-SSN-AREA. DTSIL020
|
|
00014 15 L020-S-SSN1-AREA. DTSIL020
|
|
00015 20 L020-S-SSN1-L PIC S9(04) COMP. DTSIL020
|
|
00016 20 L020-S-SSN1-A PIC X(01). DTSIL020
|
|
00017 20 L020-S-SSN1 PIC X(03). DTSIL020
|
|
00018 15 L020-S-SSN2-AREA. DTSIL020
|
|
00019 20 L020-S-SSN2-L PIC S9(04) COMP. DTSIL020
|
|
00020 20 L020-S-SSN2-A PIC X(01). DTSIL020
|
|
00021 20 L020-S-SSN2 PIC X(02). DTSIL020
|
|
00022 15 L020-S-SSN3-AREA. DTSIL020
|
|
00023 20 L020-S-SSN3-L PIC S9(04) COMP. DTSIL020
|
|
00024 20 L020-S-SSN3-A PIC X(01). DTSIL020
|
|
00025 20 L020-S-SSN3 PIC X(04). DTSIL020
|
|
00026 SKIP1 DTSIL020
|
|
00027 10 L020-SSN PIC S9(09) COMP-3. DTSIL020
|
|
00028 SKIP1 DTSIL020
|
|
00029 10 FILLER PIC X(06). DTSIL020
|