21 lines
1.6 KiB
COBOL
21 lines
1.6 KiB
COBOL
00001 ***** 03/08/01
|
|
00002 * DTSIXFAQ
|
|
00003 * DTSIXFAQ CONVERTED(DTSU620) FISCAL AGENT RATE TAPE LV001
|
|
00004 * RECORD DEFINITION. DTSIXFAQ
|
|
00005 * DTSIXFAQ
|
|
00006 * DTSIXFAQ
|
|
00007 * 02/16/2000 CREATED FOR DC. ZL1 DTSIXFAQ
|
|
00008 * *** 03/23/2000 NEW TEST VERSION GD *** DTSIXFAQ
|
|
00009 * DTSIXFAQ
|
|
00010 ***** DTSIXFAQ
|
|
00011 DTSIXFAQ
|
|
00012 10 XFAQ-KEY-AREA. DTSIXFAQ
|
|
00013 15 XFAQ-REC-TYPE PIC X(06). DTSIXFAQ
|
|
00014 * 88 FISCAL-AGENT-UC30 VALUE 'UC30 '. DTSIXFAQ
|
|
00015 15 XFAQ-FISCAL-AGENT-CD PIC X(03). DTSIXFAQ
|
|
00016 15 XFAQ-EMP-NO PIC X(06). DTSIXFAQ
|
|
00017 15 XFAQ-EMP-FEIN PIC X(09). DTSIXFAQ
|
|
00018 DTSIXFAQ
|
|
00019 10 XFAQ-DATA-AREA. DTSIXFAQ
|
|
00020 15 XFAQ-FILLLER PIC X(56) VALUE SPACES. DTSIXFAQ
|