00001 ***** 04/08/03 00002 * DTSXL903 00003 * DTSXL903 XEROX LASER REPORT LAYOUT AND LV055 00004 * DEFINITIONS CL**2 00005 * DTSXL903 00006 * 08-04-1999 INITIAL DEVELOPMENT. CL*43 00007 * REFERENCE RFP #**** PROGRAMMER: DVS CL*42 00008 * CL*43 00009 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL*20 00010 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL*20 00011 * REFERENCE RFP #**** PROGRAMMER: XXX CL*20 00012 * CL*20 00013 ***** DTSXL903 00014 ****************************************************************** CL*17 00015 * UC643 XEROX LASER DEFINITION * CL*43 00016 ****************************************************************** CL*17 00017 *01 XF-CA-CNTL-LIN0. CL*51 00018 * 05 FILLER PIC X(01). CL*51 00019 * 05 XF-CA-PMODE PIC X(10) VALUE 'PMODE=POR,'. CL*51 00020 * 05 XF-CA-LINE-END PIC X(1) VALUE ';'. CL*51 00021 * 05 FILLER PIC X(70) VALUE SPACES. CL*51 00022 CL*43 00023 01 XF-CA-CNTL-LINE. CL*43 00024 * 05 FILLER PIC X(01). CL*55 00025 05 X1-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. CL*43 00026 05 X1-CA-JDL PIC X(9) VALUE 'JDL=XMOM,'. CL*43 00027 05 X1-CA-JDE PIC X(10) VALUE 'JDE=UC643,'. CL*43 00028 05 X1-CA-LINE-END PIC X(1) VALUE ';'. CL*43 00029 05 FILLER PIC X(49) VALUE SPACES. CL*49 00030 *01 X1-CA-CNTL-LINE. CL*54 00031 * 05 FILLER PIC X(01). CL*54 00032 * 05 X1-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. CL*54 00033 * 05 X1-CA-FORMS PIC X(26) CL*44 00034 * VALUE 'CYCLEFORMS=(UC643,UC643F),' CL*44 00035 * 05 X1-CA-LINE-END PIC X(1) VALUE ';'. CL*54 00036 * 05 FILLER PIC X(43) VALUE SPACES. CL*44 00037 * 05 FILLER PIC X(68) VALUE SPACES. CL*54 00038 CL*44 00039 01 X2-CA-CNTL-LINE. CL*44 00040 * 05 FILLER PIC X(01). CL*55 00041 05 X2-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. CL*44 00042 05 X2-CA-DUPLEX PIC X(11) VALUE 'DUPLEX=YES,'. CL*44 00043 05 X2-CA-FONTS PIC X(30) VALUE CL*44 00044 'FONTS=((UN210E,6),(UN110E,6)),'. CL*44 00045 05 X2-CA-FINDEX PIC X(19) VALUE CL*44 00046 'FONTINDEX=(82,ONE),'. CL*44 00047 05 X2-CA-LINE-END PIC X(1) VALUE ';'. CL*44 00048 05 FILLER PIC X(8) VALUE SPACES. CL*49 00049 CL*44 00050 01 X3-CA-CNTL-LINE. CL*44 00051 * 05 FILLER PIC X(01). CL*55 00052 05 X3-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. CL*44 00053 05 X3-CA-DATA PIC X(12) VALUE 'DATA=(0,81),'. CL*44 00054 05 X3-CA-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. CL*44 00055 05 X3-CA-BEGIN PIC X(18) VALUE CL*44 00056 'BEGIN=(0.50,0.51),'. CL*51 00057 05 X3-CA-LINE-END PIC X(4) VALUE 'END;'. CL*44 00058 05 FILLER PIC X(01). CL*47 00059 05 FILLER PIC X(22) VALUE SPACES. CL*49 00060 CL*44 00061 01 X4-CA-END-LINE. CL*44 00062 * 05 FILLER PIC X(01). CL*55 00063 05 X4-CA-DJDE PIC X(12) VALUE '$X9700$DJDE '. CL*44 00064 05 X4-CA-LINE-END PIC X(4) VALUE 'END;'. CL*44 00065 05 FILLER PIC X(65) VALUE SPACES. CL*49 00066 01 XEROX-START-LINE. CL*53 00067 05 LINE-13. CL*53 00068 10 FILLER PIC X(20) VALUE SPACES. CL*53 00069 10 FILLER PIC X(40) CL*53 00070 VALUE ALL '*'. CL*53 00071 05 LINE-14. CL*53 00072 10 FILLER PIC X(20) VALUE SPACES. CL*53 00073 10 FILLER PIC X(40) CL*53 00074 VALUE '* ROUTE FOLLOWING FORMS TO: *'. CL*53 00075 05 LINE-15. CL*53 00076 10 FILLER PIC X(20) VALUE SPACES. CL*53 00077 10 FILLER PIC X(40) CL*53 00078 VALUE '* TAX ACCOUNTING SECTION *'. CL*53 00079 05 LINE-16. CL*53 00080 10 FILLER PIC X(20) VALUE SPACES. CL*53 00081 10 FILLER PIC X(40) CL*53 00082 VALUE '* DEPARTMENT OF EMPLOYMENT SERVICES *'. CL*53 00083 05 LINE-17. CL*53 00084 10 FILLER PIC X(20) VALUE SPACES. CL*53 00085 10 FILLER PIC X(40) CL*53 00086 VALUE ALL '*'. CL*53 00087 01 VSCA-ADDR-LINE. CL*45 00088 03 FILLER PIC X. CL*45 00089 03 VSCA-DATA. CL*45 00090 05 FIL PIC X. CL*45 00091 05 PRT1 PIC X(40). CL*46 00092 05 FIL PIC X. CL*45 00093 05 PRT2. CL*45 00094 07 PRT2A PIC X(40). CL*46 00095 03 FILLER PIC X VALUE '1'. CL*45