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