27 lines
2.1 KiB
COBOL
27 lines
2.1 KiB
COBOL
00001 ***** 05/22/01
|
|
00002 * DTSIIEPR
|
|
00003 * DTSIIEPR ALTERNATE INDEX FILE LV001
|
|
00004 * ELECTRONIC FILER ID SEARCH RECORD DEFINITION. DTSIIEPR
|
|
00005 * DTSIIEPR
|
|
00006 * FUNCTION: ONE EXISTS FOR EACH ELECTRONIC FILER PROFILE REC. DTSIIEPR
|
|
00007 * INPUT: ELF-ID DTSIIEPR
|
|
00008 * RETURN: DATA-TYPE-CD DTSIIEPR
|
|
00009 * DTSIIEPR
|
|
00010 * THIS RECORD EXISTS ONLY TO SIMPLIFY THE SEARCH DTSIIEPR
|
|
00011 * PROCESS IN SCREEN L6. DTSIIEPR
|
|
00012 * DTSIIEPR
|
|
00013 * 01/17/2001 INITIAL DEVELOPMENT. GD DTSIIEPR
|
|
00014 * DTSIIEPR
|
|
00015 ***** DTSIIEPR
|
|
00016 DTSIIEPR
|
|
00017 10 IEPR-KEY-AREA. DTSIIEPR
|
|
00018 15 IEPR-REC-TYPE PIC S9(04) COMP. DTSIIEPR
|
|
00019 88 IEPR-EPR-88 VALUE +19. DTSIIEPR
|
|
00020 15 IEPR-ELF-ID PIC S9(07) COMP-3. DTSIIEPR
|
|
00021 15 IEPR-DATA-TYPE-CD PIC X(02). DTSIIEPR
|
|
00022 88 IEPR-PRINT-UC30-88 VALUE '01'. DTSIIEPR
|
|
00023 88 IEPR-BEN-CHARGE-88 VALUE '02'. DTSIIEPR
|
|
00024 88 IEPR-WAGE-ONLY-88 VALUE '11'. DTSIIEPR
|
|
00025 88 IEPR-WAGE-TAX-88 VALUE '12'. DTSIIEPR
|
|
00026 15 IEPR-KEY-FILLER PIC X(56). DTSIIEPR
|