00001 *****                                                             04/24/00
00002 *                                                                 DTSIL071
00003 *    DTSIL071    NAME (O/P/O, CLAIMANT, WORK STATION OPERATOR,       LV006
00004 *                OR FIELD REP) EDIT/CONVERSION.                   DTSIL071
00005 *                                                                 DTSIL071
00006 *    L071-FROM-FIRST-NAME-FIRST DISABLED.  UNABLE TO DETERMINE    DTSIL071
00007 *    LOCATION FOR THE SLASH.                                      DTSIL071
00008 *                                                                 DTSIL071
00009 *                                                                 DTSIL071
00010 *                09/08/1998  REVIEWED AND MODIFIED FOR DC.  EHH   DTSIL071
00011 *                                                                 DTSIL071
00012 *****                                                             DTSIL071
00013                                                                   DTSIL071
00014          10  L071-NAME-FORMAT            PIC  9(01).              DTSIL071
00015 *************88  L071-FROM-FIRST-NAME-FIRST  VALUE 1.             DTSIL071
00016              88  L071-FROM-LAST-NAME-FIRST   VALUE 2.             DTSIL071
00017                                                                   DTSIL071
00018          10  L071-NAME-RETURN            PIC  9(01).              DTSIL071
00019              88  L071-NAME-CONVERTED         VALUE 0.             DTSIL071
00020              88  L071-NAME-INVALID           VALUE 8.             DTSIL071
00021                                                                   DTSIL071
00022          10  L071-NAM                    PIC  X(32).              DTSIL071
00023          10  L071-NAME REDEFINES L071-NAM                         DTSIL071
00024                        OCCURS 32 TIMES                            DTSIL071
00025                                         PIC  X(01).               DTSIL071
00026                                                                   DTSIL071
00027          10  FILLER                     PIC  X(28).               DTSIL071