85 lines
6.6 KiB
COBOL
85 lines
6.6 KiB
COBOL
00001 ***** 02/07/14
|
|
00002 * DTSXL32A
|
|
00003 * DTSXL321 XEROX LASER REPORT SELF-MAILER LETTERHEAD LV014
|
|
00004 * ON MISSING REPORT LETTER FROM BR320. CL*10
|
|
00005 * DTSXL32A
|
|
00006 * 02-05-2014 INITIAL DEVELOPMENT ZL1 CL*10
|
|
00007 * DTSXL32A
|
|
00008 * DTSXL32A
|
|
00009 * DTSXL32A
|
|
00010 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL32A
|
|
00011 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSXL32A
|
|
00012 * REFERENCE RFP #**** PROGRAMMER: XXX DTSXL32A
|
|
00013 * DTSXL32A
|
|
00014 ***** DTSXL32A
|
|
00015 ******************************************************************DTSXL32A
|
|
00016 * XEROX LASER DEFINITION WITH ROUTING PAGE *DTSXL32A
|
|
00017 ******************************************************************DTSXL32A
|
|
00018 ******************************************************************DTSXL32A
|
|
00019 * XEROX LASER DEFINITION *DTSXL32A
|
|
00020 ******************************************************************DTSXL32A
|
|
00021 * DTSXL32A
|
|
00022 DTSXL32A
|
|
00023 01 XEROX-CNTL2-LINE18. CL*11
|
|
00024 * 05 FILLER PIC X VALUE SPACES. DTSXL32A
|
|
00025 05 CNTL2-DJDE PIC X(12) VALUE '$X9700$DJDE '. CL*12
|
|
00026 05 CNTL2-JDL PIC X(09) VALUE 'JDL=XMOM,'. CL*12
|
|
00027 05 CNTL2-JDE PIC X(11) VALUE 'JDE=T320R2,'. CL*12
|
|
00028 05 CNTL2-CME PIC X(14) VALUE 'MODIFY=CME418,'. CL*12
|
|
00029 05 CNTL2-END PIC X(01) VALUE ';'. CL*12
|
|
00030 05 FILLER PIC X(36) VALUE SPACES. DTSXL32A
|
|
00031 DTSXL32A
|
|
00032 01 XEROX-CNTL2-LINE19. CL*11
|
|
00033 * 05 FILLER PIC X VALUE SPACES. DTSXL32A
|
|
00034 05 CNTL2-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL32A
|
|
00035 05 CNTL2-DUPLEX PIC X(11) VALUE 'DUPLEX=YES,'. DTSXL32A
|
|
00036 05 CNTL2-FONTS PIC X(36) DTSXL32A
|
|
00037 VALUE 'FONTS=(HE11NP,HE11NP,C128ZP,C128PX),'. CL**2
|
|
00038 05 CNTL2-END PIC X(01) VALUE ';'. DTSXL32A
|
|
00039 05 FILLER PIC X(24) VALUE SPACES. DTSXL32A
|
|
00040 DTSXL32A
|
|
00041 01 XEROX-CNTL2-LINE20. CL*11
|
|
00042 * 05 FILLER PIC X VALUE SPACES. DTSXL32A
|
|
00043 05 CNTL4-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL32A
|
|
00044 05 CNTL4-DATA PIC X(13) VALUE 'DATA=(0,132),'. DTSXL32A
|
|
00045 05 CNTL4-ASSIGN PIC X(13) VALUE 'ASSIGN=(1,1),'. DTSXL32A
|
|
00046 05 CNTL4-BEGIB PIC X(18) VALUE DTSXL32A
|
|
00047 'BEGIN=(0.50,0.41),'. DTSXL32A
|
|
00048 05 CNTL4-TOF PIC X(07) VALUE 'TOF=12,'. DTSXL32A
|
|
00049 05 CNTL4-BOF PIC X(07) VALUE 'BOF=66,'. DTSXL32A
|
|
00050 05 CNTL4-END PIC X(04) VALUE 'END;'. DTSXL32A
|
|
00051 05 FILLER PIC X(07) VALUE SPACES. DTSXL32A
|
|
00052 DTSXL32A
|
|
00053 01 XEROX-END-LINE-1. DTSXL32A
|
|
00054 * 05 FILLER PIC X VALUE SPACES. DTSXL32A
|
|
00055 05 ENDL1-DJDE PIC X(12) VALUE '$X9700$DJDE '. DTSXL32A
|
|
00056 05 ENDL1-END PIC X(04) VALUE 'END;'. DTSXL32A
|
|
00057 05 FILLER PIC X(64) VALUE SPACES. DTSXL32A
|
|
00058 CL*13
|
|
00059 01 VSC2-ADDR-LINE-17. CL*13
|
|
00060 05 FILLER PIC X VALUE SPACES. CL*13
|
|
00061 05 FILLER PIC X(70) VALUE SPACES. CL*13
|
|
00062 05 C2-ADDR-FMT-LINE-1 PIC X(40) VALUE SPACES. CL*13
|
|
00063 CL*13
|
|
00064 01 VSC2-ADDR-LINE-18. CL*13
|
|
00065 05 FILLER PIC X VALUE SPACES. CL*13
|
|
00066 05 FILLER PIC X(70) VALUE SPACES. CL*13
|
|
00067 05 C2-ADDR-FMT-LINE-2 PIC X(40) VALUE SPACES. CL*13
|
|
00068 CL*13
|
|
00069 01 VSC2-ADDR-LINE-19. CL*13
|
|
00070 05 FILLER PIC X VALUE SPACES. CL*13
|
|
00071 05 FILLER PIC X(70) VALUE SPACES. CL*13
|
|
00072 05 C2-ADDR-FMT-LINE-3 PIC X(40) VALUE SPACES. CL*13
|
|
00073 CL*13
|
|
00074 01 VSC2-ADDR-LINE-20. CL*14
|
|
00075 05 FILLER PIC X VALUE SPACES. CL*13
|
|
00076 05 FILLER PIC X(70) VALUE SPACES. CL*13
|
|
00077 05 C2-ADDR-FMT-LINE-4 PIC X(40) VALUE SPACES. CL*13
|
|
00078 CL*13
|
|
00079 01 VSC2-ADDR-LINE-21. CL*13
|
|
00080 05 FILLER PIC X VALUE SPACES. CL*13
|
|
00081 05 FILLER PIC X(70) VALUE SPACES. CL*13
|
|
00082 05 C2-ADDR-FMT-LINE-5 PIC X(40) VALUE SPACES. CL*13
|
|
00083 CL*13
|
|
00084 DTSXL32A
|