giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Copybook/DTSIXFAR.cpy Normal file
View File

@ -0,0 +1,24 @@
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