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