Compressed Text

[Mike Palandri]

When I worked on an HP 3000, we used a cobol program to send the appropriate control codes to the laser printer, then fcopied the report from a disk text file to the printer.  Here's a sample command file.  I can post the cobol code if you want, it is only about 360 lines.


FILE SCHED=OIR0103A;TEMP
FILE HARD;REC=-130
LCC0001.RUN;INFO="RS,LA,8L,PL60,CO,MW08"
FCOPY FROM=*SCHED;TO=$HARD > $NULL
LCC0001.RUN;INFO="RS"



At 02:33 PM 08/30/2000 -0400, Grace, Jim wrote:
>I am trying to compress the text in a quiz report to print out on an HP
>laser jet 8000N.  I am trouble getting the on and off codes to work.  I have
>an example from Cognos on how to do it.  Has anyone been successful with
>this.
>
>Please let me know.
>
>Thanks
>
>The example below should cause a compressed font to be used by th printer.
>
>Quiz 
>
>>DEF escn int*1 = 27; 
>>def esc char*1 = char(escn)[2:1]; this will send the Esc sequence to the
>printer
>>def COMPRESSION  char*2 = esc + "<on code>"; see printer manual for this
>code
>>def COMPRESSOFF char*2 = esc + "<off code>"; see printer manual for this
>code
>>REPORT COMPRESSION  "Compressed" COMPRESSOFF "NOT Compressed"
>
>If this works, the string,"compressed", should appear in small fonts.
>
>If it does not then the escape sequence code selected is wrong for the
>printer. Each printer has its own set of printer control code sequences.
>Refer to your printer manual or call the manufacturer/vendor.
>
>If it is necessary to have the page headings compressed, add the COMPRESSION
>item to the beginning of the page heading, or to the initial page heading.
>Turn off the compression setting sent to the printer, by reporting the
>COMPRESSOFF item in the final footing of the report.
>
>= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
>Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
>Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
>This list is closed, thus to post to the list, you must be a subscriber.
>

Mike