66 lines
5.1 KiB
COBOL
66 lines
5.1 KiB
COBOL
00001 ***** 01/11/05
|
|
00002 * DTSXLBLH
|
|
00003 * DTSXLBLH XEROX LASER REPORT LAYOUT AND LV048
|
|
00004 * DEFINITIONS FOR DUTAS BLANK LETTER HEAD FORMS DTSXLBLH
|
|
00005 * DTSXLBLH
|
|
00006 * 08-12-1999 DTSXLBLH
|
|
00007 * DTSXLBLH
|
|
00008 * DTSXLBLH
|
|
00009 ***** DTSXLBLH
|
|
00010 ******************************************************************DTSXLBLH
|
|
00011 * XEROX LASER DEFINITION *DTSXLBLH
|
|
00012 ******************************************************************DTSXLBLH
|
|
00013 DTSXLBLH
|
|
00014 01 XEROX-CNTL-LINE1. DTSXLBLH
|
|
00015 05 XEROX-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXLBLH
|
|
00016 05 XEROX-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSXLBLH
|
|
00017 05 XEROX-JDE PIC X(11) VALUE 'JDE=SIMPLX,'. DTSXLBLH
|
|
00018 05 XEROX-FORMS PIC X(13) VALUE 'FORMS=DTSBLZ,'. DTSXLBLH
|
|
00019 05 XEROX-BFORMS PIC X(11) VALUE 'BFORM=NONE,'. DTSXLBLH
|
|
00020 05 XEROX-FORMAT PIC X(12) VALUE 'FORMAT=FMT7,'. DTSXLBLH
|
|
00021 05 XEROX-END PIC X(01) VALUE ';'. DTSXLBLH
|
|
00022 DTSXLBLH
|
|
00023 DTSXLBLH
|
|
00024 01 XEROX-CNTL-LINE2. DTSXLBLH
|
|
00025 05 XEROX-DJDE2 PIC X(12) VALUE '$X9700$DJDE '. DTSXLBLH
|
|
00026 05 XEROX-SIMPLEX PIC X(10) VALUE 'DUPLEX=NO,'. DTSXLBLH
|
|
00027 05 XEROX-FONTS PIC X(13) VALUE 'FONTS=CS12NP,'. DTSXLBLH
|
|
00028 05 XEROX-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXLBLH
|
|
00029 * 05 XEROX-BEGIB PIC X(18) VALUE DTSXLBLH
|
|
00030 * 'BEGIN=(0.50,0.41),'. DTSXLBLH
|
|
00031 05 XEROX-TOF PIC X(07) VALUE 'TOF=12,'. DTSXLBLH
|
|
00032 05 XEROX-BOF PIC X(07) VALUE 'BOF=60,'. DTSXLBLH
|
|
00033 05 XEROX-END PIC X(04) VALUE 'END;'. DTSXLBLH
|
|
00034 05 FILLER PIC X(07) VALUE SPACES. DTSXLBLH
|
|
00035 DTSXLBLH
|
|
00036 01 ROUTE-INFO-LINE1. DTSXLBLH
|
|
00037 05 FILLER PIC X(18) VALUE SPACES. DTSXLBLH
|
|
00038 05 FILLER PIC X(50) VALUE ALL '*'. DTSXLBLH
|
|
00039 DTSXLBLH
|
|
00040 01 ROUTE-INFO-LINE2. DTSXLBLH
|
|
00041 05 FILLER PIC X(18) VALUE SPACES. DTSXLBLH
|
|
00042 05 FILLER PIC X(24) VALUE DTSXLBLH
|
|
00043 ' ROUTE REPORT '. DTSXLBLH
|
|
00044 05 REPORT-NUMBER PIC X(08). DTSXLBLH
|
|
00045 05 FILLER PIC X(05) VALUE ' TO:'. DTSXLBLH
|
|
00046 05 FILLER PIC X(12) VALUE SPACES. DTSXLBLH
|
|
00047 05 FILLER PIC X(01) VALUE ' '. DTSXLBLH
|
|
00048 DTSXLBLH
|
|
00049 01 ROUTE-INFO-LINE3. DTSXLBLH
|
|
00050 05 FILLER PIC X VALUE SPACES. DTSXLBLH
|
|
00051 05 FILLER PIC X(18) VALUE SPACES. DTSXLBLH
|
|
00052 05 FILLER PIC X(50) VALUE DTSXLBLH
|
|
00053 ' STATUS UNIT '. DTSXLBLH
|
|
00054 DTSXLBLH
|
|
00055 01 ROUTE-INFO-LINE4. DTSXLBLH
|
|
00056 05 FILLER PIC X VALUE SPACES. DTSXLBLH
|
|
00057 05 FILLER PIC X(18) VALUE SPACES. DTSXLBLH
|
|
00058 05 FILLER PIC X(50) VALUE DTSXLBLH
|
|
00059 'DEPARTMENT OF EMPLOYMENT SERVICES '. DTSXLBLH
|
|
00060 DTSXLBLH
|
|
00061 01 ROUTE-INFO-LINE5. DTSXLBLH
|
|
00062 05 FILLER PIC X VALUE SPACES. DTSXLBLH
|
|
00063 05 FILLER PIC X(18) VALUE SPACES. DTSXLBLH
|
|
00064 05 FILLER PIC X(50) VALUE ALL '*'. DTSXLBLH
|
|
00065 DTSXLBLH
|