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

174
Copybook/DTSXL793.cpy Normal file
View File

@ -0,0 +1,174 @@
00001 ***** 08/28/19
00002 * DTSXL793
00003 * DTSIX793 XEROX LASER REPORT LAYOUT AND LV004
00004 * DEFINITIONS DTSXL793
00005 * DTSXL793
00006 * 07-28-1999 INITIAL REPORT DTSXL793
00007 * REFERENCE RFP #**** PROGRAMMER: DVS DTSXL793
00008 * DTSXL793
00009 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL793
00010 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL793
00011 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL793
00012 * DTSXL793
00013 ***** DTSXL793
00014 ******************************************************************DTSXL793
00015 * UC300 XEROX LASER DEFINITION *DTSXL793
00016 ******************************************************************DTSXL793
00017 01 XF-CA-CNTL-LIN0. DTSXL793
00018 05 FILLER PIC X. DTSXL793
00019 05 XF-CA-PMODE PIC X(10) VALUE 'PMODE=POR,'. DTSXL793
00020 05 XF-CA-LINE-END PIC X(1) VALUE ';'. DTSXL793
00021 05 FILLER PIC X(70) VALUE SPACES. DTSXL793
00022 DTSXL793
00023 01 XF-CA-CNTL-LINE. DTSXL793
00024 * 05 FILLER PIC X. DTSXL793
00025 05 X1-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL793
00026 05 X1-CA-JDL PIC X(9) VALUE 'JDL=XMOM,'. DTSXL793
00027 05 X1-CA-JDE PIC X(10) VALUE 'JDE=UC300,'. DTSXL793
00028 05 X1-CA-LINE-END PIC X(1) VALUE ';'. DTSXL793
00029 05 FILLER PIC X(49) VALUE SPACES. DTSXL793
00030 DTSXL793
00031 *01 X1-CA-CNTL-LINE. DTSXL793
00032 * 05 FILLER PIC X. DTSXL793
00033 * 05 X1-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL793
00034 * 05 X1-CA-LINE-END PIC X(1) VALUE ';'. DTSXL793
00035 * 05 FILLER PIC X(68) VALUE SPACES. DTSXL793
00036 DTSXL793
00037 01 X2-CA-CNTL-LINE. DTSXL793
00038 * 05 FILLER PIC X. DTSXL793
00039 05 X2-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL793
00040 05 X2-CA-DUPLEX PIC X(11) VALUE 'DUPLEX=YES,'. DTSXL793
00041 05 X2-CA-FONTS PIC X(30) VALUE DTSXL793
00042 'FONTS=((UN210E,6),(UN110E,6)),'.DTSXL793
00043 05 X2-CA-FINDEX PIC X(19) VALUE DTSXL793
00044 'FONTINDEX=(82,ONE),'. DTSXL793
00045 05 X2-CA-LINE-END PIC X(1) VALUE ';'. DTSXL793
00046 05 FILLER PIC X(8) VALUE SPACES. DTSXL793
00047 DTSXL793
00048 01 X3-CA-CNTL-LINE. DTSXL793
00049 * 05 FILLER PIC X. DTSXL793
00050 05 X3-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL793
00051 05 X3-CA-DATA PIC X(13) VALUE 'DATA=(0,121),'. CL**3
00052 05 X3-CA-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL793
00053 05 X3-CA-BEGIN PIC X(18) VALUE DTSXL793
00054 'BEGIN=(0.50,0.41),'. DTSXL793
00055 05 X3-CA-LINE-END PIC X(4) VALUE 'END;'. DTSXL793
00056 05 FILLER PIC X(22) VALUE SPACES. DTSXL793
00057 DTSXL793
00058 01 X4-CA-END-LINE. DTSXL793
00059 * 05 FILLER PIC X. DTSXL793
00060 05 X4-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL793
00061 05 X4-CA-LINE-END PIC X(4) VALUE 'END;'. DTSXL793
00062 05 FILLER PIC X(65) VALUE SPACES. DTSXL793
00063 DTSXL793
00064 01 VSCA-ADDR-LINE. DTSXL793
00065 03 FILLER PIC X. DTSXL793
00066 03 VSCA-DATA. DTSXL793
00067 05 FIL PIC XXXX. DTSXL793
00068 05 PRT1. DTSXL793
00069 07 PRTX PIC X(21). DTSXL793
00070 07 PRTA PIC X(15). DTSXL793
00071 05 PRT1-A REDEFINES PRT1. DTSXL793
00072 07 FILLER PIC X(11). DTSXL793
00073 07 PRTB PIC X(11). DTSXL793
00074 07 FILLER PIC X(14). DTSXL793
00075 05 FIL PIC X. DTSXL793
00076 05 PRT2 PIC X(40). DTSXL793
00077 03 FILLER PIC X VALUE ' '. CL**4
00078 01 BLANK-LINE PIC X(132) VALUE SPACES. DTSXL793
00079 SKIP3 DTSXL793
00080 ******************************************************************DTSXL793
00081 * UC300 FORM LAYOUT DEFINITION *DTSXL793
00082 ******************************************************************DTSXL793
00083 01 HEAD. DTSXL793
00084 02 FIL PIC X(10) VALUE ' DATE: '. DTSXL793
00085 02 FILA PIC X(10) VALUE SPACES. DTSXL793
00086 02 FIL PIC X(37) VALUE SPACES. DTSXL793
00087 02 FILB PIC X(22) VALUE 'RATES AND REGISTRATION'. DTSXL793
00088 02 FIL PIC X(31) VALUE SPACES. DTSXL793
00089 02 FILC PIC X(7) VALUE 'PAGE: '. DTSXL793
00090 02 FILD PIC ZZZ9. DTSXL793
00091 01 HEADA. DTSXL793
00092 02 FIL PIC X(56) VALUE SPACES. DTSXL793
00093 02 FIL PIC X(21) VALUE '940 QUARTERLY EXTRACT'. DTSXL793
00094 01 HEAD1. DTSXL793
00095 02 FIL PIC X(12) VALUE ' EMP IDENT'. DTSXL793
00096 02 FIL PIC X(11) VALUE SPACES. DTSXL793
00097 02 FIL PIC X(5) VALUE 'TRANS'. DTSXL793
00098 02 FIL PIC X(12) VALUE SPACES. DTSXL793
00099 02 FIL PIC X(14) VALUE 'CROSS REF. FED'. DTSXL793
00100 02 FIL PIC X(13) VALUE SPACES. DTSXL793
00101 02 FIL PIC X(5) VALUE 'STATE'. DTSXL793
00102 02 FIL PIC X(25) VALUE SPACES. DTSXL793
00103 02 FIL PIC X(8) VALUE 'EMPLOYER'. DTSXL793
00104 01 HEAD2. DTSXL793
00105 02 FIL PIC X(10) VALUE ' NUMBER'. DTSXL793
00106 02 FIL PIC X(13) VALUE SPACES. DTSXL793
00107 02 FIL PIC X(4) VALUE 'DATE'. DTSXL793
00108 02 FIL PIC X(13) VALUE SPACES. DTSXL793
00109 02 FIL PIC X(12) VALUE 'IDENT NUMBER'. DTSXL793
00110 02 FIL PIC X(15) VALUE SPACES. DTSXL793
00111 02 FIL PIC X(4) VALUE 'CODE'. DTSXL793
00112 02 FIL PIC X(26) VALUE SPACES. DTSXL793
00113 02 FIL PIC X(7) VALUE 'ADDRESS'. DTSXL793
00114 01 DETAIL1. DTSXL793
00115 02 FIL PIC X(3) VALUE SPACES. DTSXL793
00116 02 E-NUM PIC 999B999. DTSXL793
00117 02 FIL PIC X(11) VALUE SPACES. DTSXL793
00118 02 DTE PIC 9(6). DTSXL793
00119 02 FIL PIC X(13) VALUE SPACES. DTSXL793
00120 02 ID-NUM PIC 9(9). DTSXL793
00121 02 FIL PIC X(16) VALUE SPACES. DTSXL793
00122 02 CDE PIC XX. DTSXL793
00123 02 FIL PIC X(16) VALUE SPACES. DTSXL793
00124 02 ADDR PIC X(35). DTSXL793
00125 01 DETAIL2. DTSXL793
00126 02 FIL PIC X(87) VALUE SPACES. DTSXL793
00127 02 ADDR1 PIC X(35). DTSXL793
00128 01 DETAIL3. DTSXL793
00129 02 FIL PIC X(87) VALUE SPACES. DTSXL793
00130 02 ADDR2 PIC X(35). DTSXL793
00131 01 DETAIL4. DTSXL793
00132 02 FIL PIC X(87) VALUE SPACES. DTSXL793
00133 02 ADDR3 PIC X(35). DTSXL793
00134 01 DETAIL5. DTSXL793
00135 02 FIL PIC X(87) VALUE SPACES. DTSXL793
00136 02 ADDR4 PIC X(35). DTSXL793
00137 01 DETAIL6. DTSXL793
00138 02 FIL PIC X(87) VALUE SPACES. DTSXL793
00139 02 ADDR-CITY PIC X(16). DTSXL793
00140 02 FIL PIC X(01) VALUE SPACE. DTSXL793
00141 02 ADDR-STATE PIC X(02). DTSXL793
00142 02 FIL PIC X(01) VALUE SPACES. DTSXL793
00143 02 ADDR-ZIP PIC X(5)BX(4). DTSXL793
00144 01 FEIN-DET1. DTSXL793
00145 02 FIL PIC X(54) VALUE SPACES. DTSXL793
00146 02 E-NUM PIC 9(09). DTSXL793
00147 02 FIL PIC X(21) VALUE SPACES. DTSXL793
00148 01 FEIN-DET2. DTSXL793
00149 02 FIL PIC X(70) VALUE SPACES. DTSXL793
00150 02 ADDR1 PIC X(35). DTSXL793
00151 01 FEIN-DET3. DTSXL793
00152 02 FIL PIC X(70) VALUE SPACES. DTSXL793
00153 02 ADDR2 PIC X(35). DTSXL793
00154 01 FEIN-DET4. DTSXL793
00155 02 FIL PIC X(70) VALUE SPACES. DTSXL793
00156 02 ADDR3 PIC X(35). DTSXL793
00157 01 FEIN-DET5. DTSXL793
00158 02 FIL PIC X(70) VALUE SPACES. DTSXL793
00159 02 ADDR4 PIC X(35). DTSXL793
00160 01 FEIN-DET6. DTSXL793
00161 02 FIL PIC X(70) VALUE SPACES. DTSXL793
00162 02 ADDR5 PIC X(35). DTSXL793
00163 DTSXL793
00164 01 FEIN-DET7. DTSXL793
00165 02 FEIN-CITY PIC X(16). DTSXL793
00166 02 FIL PIC X(02) VALUE SPACES. DTSXL793
00167 02 FEIN-STATE PIC X(02). DTSXL793
00168 02 FIL PIC X(01) VALUE SPACES. DTSXL793
00169 02 FEIN-ZIP. DTSXL793
00170 04 FEIN-ZIP-1-5 PIC X(5). DTSXL793
00171 04 FILLER PIC X. DTSXL793
00172 04 FEIN-ZIP-6-9 PIC X(4). DTSXL793
00173 04 FILLER PIC X. DTSXL793
00174 04 FEIN-ZIP-10-12 PIC X(3). DTSXL793