25 lines
1.9 KiB
COBOL
25 lines
1.9 KiB
COBOL
00001 ***** 05/24/00
|
|
00002 * DTSIXFAR
|
|
00003 * DTSIXFAR EXTERNAL FISCAL AGENT RATE TAPE LV001
|
|
00004 * RECORD DEFINITION. DTSIXFAR
|
|
00005 * DTSIXFAR
|
|
00006 * DTSIXFAR
|
|
00007 * 02/16/2000 CREATED FOR DC. ZL1 DTSIXFAR
|
|
00008 * DTSIXFAR
|
|
00009 ***** DTSIXFAR
|
|
00010 DTSIXFAR
|
|
00011 10 XFAR-KEY-AREA. DTSIXFAR
|
|
00012 15 XFAR-FISCAL-AGENT-CD PIC X(03) VALUE SPACE.DTSIXFAR
|
|
00013 15 XFAR-EMP-NO PIC 9(06) VALUE ZEROS.DTSIXFAR
|
|
00014 15 XFAR-EMP-FEIN PIC 9(09) VALUE ZEROS.DTSIXFAR
|
|
00015 DTSIXFAR
|
|
00016 10 XFAR-DATA-AREA. DTSIXFAR
|
|
00017 15 XFAR-FIL1 PIC X(02) VALUE SPACES. DTSIXFAR
|
|
00018 15 XFAR-EMP-CONTR-RATE PIC 9(03)V9999 VALUE 0. DTSIXFAR
|
|
00019 15 XFAR-EMP-CONTR-RATE-X REDEFINES DTSIXFAR
|
|
00020 XFAR-EMP-CONTR-RATE PIC X(07). DTSIXFAR
|
|
00021 15 XFAR-SIC-CODE PIC 9(04) VALUE ZEROS. DTSIXFAR
|
|
00022 15 XFAR-EMP-NAME PIC X(24) VALUE SPACES. DTSIXFAR
|
|
00023 15 XFAR-EMP-NAME-A PIC X(24) VALUE SPACES. DTSIXFAR
|
|
00024 15 XFAR-EMP-STATUS-CODE PIC X(01) VALUE SPACES. DTSIXFAR
|