DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
29
Copybook/DTSIXFAE.cpy
Normal file
29
Copybook/DTSIXFAE.cpy
Normal file
@ -0,0 +1,29 @@
|
||||
00001 ***** 05/24/00
|
||||
00002 * DTSIXFAE
|
||||
00003 * DTSIXFAE EXTERNAL FISCAL AGENT RATE TAPE LV001
|
||||
00004 * ERROR RECORD DEFINITION. DTSIXFAE
|
||||
00005 * DTSIXFAE
|
||||
00006 * DTSIXFAE
|
||||
00007 * 02/16/2000 CREATED FOR DC. ZL1 DTSIXFAE
|
||||
00008 * DTSIXFAE
|
||||
00009 ***** DTSIXFAE
|
||||
00010 DTSIXFAE
|
||||
00011 10 XFAE-KEY-AREA. DTSIXFAE
|
||||
00012 15 XFAE-FISCAL-AGENT-CD PIC X(03) VALUE SPACES. DTSIXFAE
|
||||
00013 15 XFAE-EMP-NO PIC 9(06) VALUE ZEROS. DTSIXFAE
|
||||
00014 15 XFAE-EMP-FEIN PIC 9(09) VALUE ZEROS. DTSIXFAE
|
||||
00015 15 XFAE-EMP-FEIN-X REDEFINES DTSIXFAE
|
||||
00016 XFAE-EMP-FEIN PIC X(09). DTSIXFAE
|
||||
00017 DTSIXFAE
|
||||
00018 10 XFAE-DATA-AREA. DTSIXFAE
|
||||
00019 15 XFAE-FIL1 PIC X(02) VALUE SPACES. DTSIXFAE
|
||||
00020 15 XFAE-EMP-CONTR-RATE PIC 9(03)V9999 VALUE 0. DTSIXFAE
|
||||
00021 15 XFAE-EMP-CONTR-RATE-X REDEFINES DTSIXFAE
|
||||
00022 XFAE-EMP-CONTR-RATE PIC X(07). DTSIXFAE
|
||||
00023 15 XFAE-SIC-CODE PIC 9(04) VALUE ZEROS. DTSIXFAE
|
||||
00024 15 XFAE-SIC-CODE-X REDEFINES DTSIXFAE
|
||||
00025 XFAE-SIC-CODE PIC X(04). DTSIXFAE
|
||||
00026 15 XFAE-EMP-NAME PIC X(24) VALUE SPACES. DTSIXFAE
|
||||
00027 15 XFAE-EMP-NAME-A PIC X(24) VALUE SPACES. DTSIXFAE
|
||||
00028 15 XFAE-EMP-STATUS-CODE PIC X(01) VALUE SPACES. DTSIXFAE
|
||||
00029 15 XFAE-FIL2 PIC X(20) VALUE SPACES. DTSIXFAE
|
||||
Reference in New Issue
Block a user