28 lines
2.1 KiB
COBOL
28 lines
2.1 KiB
COBOL
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
|