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