We have two command files that we send to the printers prior to printing a
report for this. The COND file will put the printer in condensed mode, where
UNCOND puts the printer in uncondensed mode.
HELP UNCOND
USER DEFINED COMMAND FILE: UNCOND
PARM DEVICE=""
FILE RESETLP;DEV=!DEVICE,13;CCTL
FCOPY FROM=UNCONDFI.PUB.SYS;TO=*RESETLP
PUB LARC:print uncondfi.pub.sys
esc&k0Sesc&l66Pesc&l66Fesc&l0Lesc&l2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
BBB
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
DDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
EEE
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
THE PRINTER IS NOW UNCONDENSED...THE PRINTER IS NOW UNCONDENSED...THE
PRINTER I
S NOW UNCONDENSED...THE PRINTER IS NOW UNCONDENSED...
HELP COND
USER DEFINED COMMAND FILE: COND
PARM DEVICE=""
FILE RESETLP;DEV=!DEVICE,13;CCTL
FCOPY FROM=CONDFILE.PUB.SYS;TO=*RESETLP
PUB LARC:print condfile.pub.sys
esc&k2Sesc&l66Pesc&l66Fesc&l0Lesc&l2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
BBBB
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
DDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
EEEE
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
THE PRINTER IS NOW CONDENSED.....THE PRINTER IS NOW CONDENSED.....THE
PRINTER IS
NOW CONDENSED.....THE PRINTER IS NOW CONDENSED.....
Hope this helps.
Rick Clark
Senior Systems Analyst
WW&R
Cleveland, Ohio
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]]On
Behalf Of Rexor
Sent: Tuesday, February 01, 2000 9:16 AM
To: [log in to unmask]
Subject: Re: How to send escape sequences to a printer
Thanks for your answer.
We do not use COBOL programs for our reporting.
We use AGL Expert, I think you don't know these software.
I tell you my question in another way:
We want, before printing the file
- to send an escape sequence to the printer by an MPE command
(to format the pitch size of the font, for example)
- then to send the file in the spool with our AGL
- And at the end, to reset the printer with another control
code
Our software AGL Expert seems not to support escape sequences. I think this
is the only way.
We are limited with the default font to 132 columms in our AGL.
We know we can print in 220columms on this printer, using a diferent pitch.
Best regards,
Fabien Visini
Rexor
Leonard S. Berkowitz <[log in to unmask]> a écrit dans le
message : F4B1826B1A21D211AEC5006008207AF40437767C@dogbert.csillc.com...
> Rexor wrote:
>
> <<We have an HP3000 939KS020 with the os MPE 5.5
>
> We want to print reportings with a low pitch on a HP 2563C (RuggedWriter)
>
> We have four type of commands codes (in the documentation):
> - <27>&k0S (This code is used in our production software)
> - Standard (ex: Ec&k0S)
> - Decimal Code (Ex: 27,38,107,48,83)
> - Hexa Code (Ex: 1B, 26, 6B, 30, 53)
> >>
>
> When we do this we embed the second code <escape>&k0S into the data
itself. The
> first thing and last thing that go to the printer are the codes.
>
> 01 PRINTER-EXPAND PIC X(05) VALUE "<escape"&k2S".
>
> I've seen this done with octal codes for escape %33:
>
> 01 PRINTER-EXPAND.
> 03 PIC X(01) VALUE %33.
> 03 PIC X(04) VALUE "&K0S".
>
> etc.
>
> If we were writing COBOL, we would write a record to the FD as soon as the
file
> is opened. If this is QUIZ, I would put it into and INITIAL HEADING and
SKIP
> before anything else in the INITIAL HEADING, or the only thing in the
INITIAL
> HEADING.
>
> By the way, the code example you cited sets or resets the printer to
normal
> print mode. For expanded printing (I am not quite sure what you mean by
"low
> pitch" use <escape>&k1S and for compress, <escape>&k2S.
>
> At the very end of your report, in COBOL write a record with the reset
code
> right before you close the file or in QUIZ at the end of FINAL FOOTING or
by
> itself in a FINAL FOOTING. If you do not do this, the next report will
have the
> same print format.
> ===================
> Leonard S. Berkowitz
> Perot Health Care Systems
> (Harvard Pilgrim Health Care account)
> voice: 617-509-1212
> fax: 617-509-5444 (509-6022 as of February 14)
>
|