96 lines
7.5 KiB
COBOL
96 lines
7.5 KiB
COBOL
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
|