00001 *****                                                             03/07/24
00002 *                                                                 DTSIWNAM
00003 *    DTSIWNAM  INDIVIDUAL NAME FILE                                  LV005
00004 *              RECORD DEFINITION.                                 DTSIWNAM
00005 *                                                                 DTSIWNAM
00006 *                                                                 DTSIWNAM
00007 *              04/05/2002  INITIAL DEVELOPMENT.           GD      DTSIWNAM
00008 *              09/02/2003  EXPANDED NAME AREA FOR                 DTSIWNAM
00009 *                          COMPATABILITY WITH WEB                 DTSIWNAM
00010 *                          REPORTING                      GD      DTSIWNAM
00011 *              04/26/2018  EXPANDED FILE TO INCLUDE SOURCE           CL**4
00012 *                          OF NAME CAPTURED ON FILE.      ZL1        CL**4
00013 *                                                                 DTSIWNAM
00014 *              03/07/2024  REMOVED LAST CHANGE FROM 04/26/2018 SC    CL**5
00015 *                                                                    CL**5
00016 *              WNAM-TYPE-3CHAR-88 - THE NAME IS ONLY A            DTSIWNAM
00017 *                 3 CHARACTER NAME CHECK.                         DTSIWNAM
00018 *              WNAM-TYPE-FULL-88  - THE NAME IS COMPLETE          DTSIWNAM
00019 *****                                                             DTSIWNAM
00020                                                                   DTSIWNAM
00021          10  WNAM-KEY-AREA.                                       DTSIWNAM
00022              15  WNAM-SSN                      PIC S9(09) COMP-3. DTSIWNAM
00023              15  WNAM-NINES-COMPLEMENT-ABSTIME PIC S9(15) COMP-3. DTSIWNAM
00024                                                                   DTSIWNAM
00025          10  WNAM-DATA-AREA.                                      DTSIWNAM
00026              15  WNAM-NAME-TYPE                PIC  X(02).        DTSIWNAM
00027                  88  WNAM-TYPE-3CHAR-88         VALUE '00'.       DTSIWNAM
00028                  88  WNAM-TYPE-FULL-88          VALUE '01'.       DTSIWNAM
00029                  88  WNAM-TYPE-NEW-HIRE-88      VALUE '02'.       DTSIWNAM
00030                                                                   DTSIWNAM
00031              15  WNAM-NAME.                                       DTSIWNAM
00032                  20  WNAM-LAST-NAME            PIC  X(20).           CL**4
00033                  20  WNAM-FIRST-NAME           PIC  X(15).           CL**4
00034                  20  WNAM-MID-INIT             PIC  X(01).        DTSIWNAM
00035                                                                      CL**4
00036 *            15  WNAM-NAME-SOURCE              PIC  X(02).           CL**5
00037 *                88  WNAM-SOURCE-ESSP-88        VALUE '00'.          CL**5
00038 *                88  WNAM-SOURCE-DOES-88        VALUE '01'.          CL**5
00039 *                88  WNAM-SOURCE-TDEC-88        VALUE '02'.          CL**5
00040 *                88  WNAM-SOURCE-DGOV-88        VALUE '03'.          CL**5