21 lines
1.6 KiB
COBOL
21 lines
1.6 KiB
COBOL
00001 ***** 05/22/01
|
|
00002 * DTSIIEAL
|
|
00003 * DTSIIEAL ALTERNATE INDEX FILE LV001
|
|
00004 * LOG NUMBER SUFFIX SEARCH RECORD DEFINITION. DTSIIEAL
|
|
00005 * DTSIIEAL
|
|
00006 * FUNCTION: ONE EXISTS FOR EACH LOG RECORD ON FILE. DTSIIEAL
|
|
00007 * INPUT: 6 DIGIT LOG NUMBER SUFFIX. DTSIIEAL
|
|
00008 * RETURN: THE FULL 10 DIGIT LOG NUMBER DTSIIEAL
|
|
00009 * DTSIIEAL
|
|
00010 * 01/20/2001 INITIAL DEVELOPMENT. GD DTSIIEAL
|
|
00011 * DTSIIEAL
|
|
00012 ***** DTSIIEAL
|
|
00013 DTSIIEAL
|
|
00014 10 IEAL-KEY-AREA. DTSIIEAL
|
|
00015 15 IEAL-REC-TYPE PIC S9(04) COMP. DTSIIEAL
|
|
00016 88 IEAL-EAL-88 VALUE +12. DTSIIEAL
|
|
00017 15 IEAL-LOG-NO-SFX PIC 9(06). DTSIIEAL
|
|
00018 15 IEAL-LOG-NO PIC 9(10). DTSIIEAL
|
|
00019 15 IEAL-COMPLETE-DATE PIC S9(09) COMP-3. DTSIIEAL
|
|
00020 15 IEAL-KEY-FILLER PIC X(41). DTSIIEAL
|