40 lines
3.1 KiB
COBOL
40 lines
3.1 KiB
COBOL
00001 ***** 01/11/06
|
|
00002 * DTSXL902
|
|
00003 * DTSXL902 XEROX LASER REPORT LAYOUT FOR UC30 LV004
|
|
00004 * DEFINITIONS DTSXL902
|
|
00005 * DTSXL902
|
|
00006 * DTSXL902
|
|
00007 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL902
|
|
00008 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL902
|
|
00009 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL902
|
|
00010 * DTSXL902
|
|
00011 ***** DTSXL902
|
|
00012 ******************************************************************DTSXL902
|
|
00013 * DTSBR902 XEROX LASER DEFINITION *DTSXL902
|
|
00014 ******************************************************************DTSXL902
|
|
00015 01 XEROX-CNTL-LINE. DTSXL902
|
|
00016 05 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL902
|
|
00017 05 XEROX-JDL PIC X(9) VALUE 'JDL=XMOM,'. DTSXL902
|
|
00018 05 XEROX-JDE PIC X(11) VALUE 'JDE=DTS902,'. DTSXL902
|
|
00019 05 XEROX-DUPLEX PIC X(11) VALUE 'DUPLEX=YES,'. DTSXL902
|
|
00020 05 XEROX-FONTS PIC X(13) VALUE 'FONTS=P07TDB,'. DTSXL902
|
|
00021 05 XEROX-DATA PIC X(13) VALUE 'DATA=(0,132),'. DTSXL902
|
|
00022 05 XEROX-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL902
|
|
00023 05 XEROX-BEGIN PIC X(16) VALUE 'BEGIN=(.57,.58),'. DTSXL902
|
|
00024 05 XEROX-TOF PIC X(06) VALUE 'TOF=5,'. DTSXL902
|
|
00025 05 XEROX-BOF PIC X(07) VALUE 'BOF=55,'. DTSXL902
|
|
00026 05 XEROX-LINE-END PIC X(4) VALUE 'END;'. DTSXL902
|
|
00027 DTSXL902
|
|
00028 01 XEROX-CNTL-LINE1. DTSXL902
|
|
00029 05 XEROX-DJDE1 PIC X(12) VALUE '$X9700$DJDE '. DTSXL902
|
|
00030 05 XEROX-JDL1 PIC X(9) VALUE 'JDL=XMOM,'. DTSXL902
|
|
00031 05 XEROX-JDE1 PIC X(11) VALUE 'JDE=DTS90S,'. DTSXL902
|
|
00032 05 XEROX-DUPLEX1 PIC X(11) VALUE 'DUPLEX=YES,'. DTSXL902
|
|
00033 05 XEROX-FONTS1 PIC X(13) VALUE 'FONTS=P07TDB,'. DTSXL902
|
|
00034 05 XEROX-DATA1 PIC X(13) VALUE 'DATA=(0,132),'. DTSXL902
|
|
00035 05 XEROX-ASSIGN1 PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL902
|
|
00036 05 XEROX-BEGIN1 PIC X(16) VALUE 'BEGIN=(.57,.58),'. DTSXL902
|
|
00037 05 XEROX-TOF1 PIC X(06) VALUE 'TOF=5,'. DTSXL902
|
|
00038 05 XEROX-BOF1 PIC X(07) VALUE 'BOF=55,'. DTSXL902
|
|
00039 05 XEROX-LINE-END1 PIC X(4) VALUE 'END;'. DTSXL902
|