41 lines
3.2 KiB
COBOL
41 lines
3.2 KiB
COBOL
00001 ***** 01/20/06
|
|
00002 * DTSXD303
|
|
00003 * DTSXD303 XEROX LASER REPORT LAYOUT AND LV002
|
|
00004 * DEFINITIONS FOR DUTAS BLANK LETTER HEAD FORMS DTSXD303
|
|
00005 * DTSXD303
|
|
00006 * 08-12-1999 DTSXD303
|
|
00007 * DTSXD303
|
|
00008 * DTSXD303
|
|
00009 * DTSXD303
|
|
00010 * 02-28-2001 PROGRAM BR303 NEEDS TO HAVE R309 XEROX COPYBOOK. DTSXD303
|
|
00011 * DTSBR303 WILL PRINT DAILY R309 CREDIT MEMO ON DTSXD303
|
|
00012 * REGULAR PAPER IN CLASS I DTSXD303
|
|
00013 * REFERENCE RFP #**** PROGRAMMER: ZL11 DTSXD303
|
|
00014 * DTSXD303
|
|
00015 ***** DTSXD303
|
|
00016 ******************************************************************DTSXD303
|
|
00017 * XEROX LASER DEFINITION *DTSXD303
|
|
00018 ******************************************************************DTSXD303
|
|
00019 DTSXD303
|
|
00020 01 XEROX-XD303-LINE1. DTSXD303
|
|
00021 * 05 FILLER PIC X VALUE SPACES. CL**2
|
|
00022 05 XD3031-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXD303
|
|
00023 05 XD3031-JDL PIC X(09) VALUE 'JDL=XMOM,'. DTSXD303
|
|
00024 05 XD3031-JDE PIC X(11) VALUE 'JDE=SWORKS,'. DTSXD303
|
|
00025 05 XD3031-FORMS PIC X(13) VALUE 'FORMS=DTSBLH,'. DTSXD303
|
|
00026 05 XD3031-BFORM PIC X(11) VALUE 'BFORM=NONE,'. DTSXD303
|
|
00027 05 XD3031-OTEXT PIC X(38) VALUE DTSXD303
|
|
00028 'OTEXT=(''LOAD NO HOLD WHITE PAPER'');'. DTSXD303
|
|
00029 01 XEROX-XD303-LINE2. DTSXD303
|
|
00030 * 05 FILLER PIC X VALUE SPACES. CL**2
|
|
00031 05 XD3032-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXD303
|
|
00032 05 XD3032-DUPLEX PIC X(10) VALUE 'DUPLEX=NO,'. DTSXD303
|
|
00033 05 XD3032-FORMAT PIC X(12) VALUE 'FORMAT=FMT7,'. DTSXD303
|
|
00034 05 XD3032-FONTS PIC X(13) VALUE 'FONTS=P07TDB,'. DTSXD303
|
|
00035 05 XD3032-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXD303
|
|
00036 05 XD3032-TOF PIC X(07) VALUE 'TOF=12,'. DTSXD303
|
|
00037 05 XD3032-BOF PIC X(07) VALUE 'BOF=60,'. DTSXD303
|
|
00038 05 XD3032-LINE-END PIC X(04) VALUE 'END;'. DTSXD303
|
|
00039 DTSXD303
|
|
00040 DTSXD303
|