DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
20
Copybook/DTSIXFAQ.cpy
Normal file
20
Copybook/DTSIXFAQ.cpy
Normal file
@ -0,0 +1,20 @@
|
||||
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
|
||||
Reference in New Issue
Block a user