175 lines
14 KiB
COBOL
175 lines
14 KiB
COBOL
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
|