HP3000-L Archives

February 2000, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Leonard S. Berkowitz" <[log in to unmask]>
Reply To:
Date:
Tue, 1 Feb 2000 08:43:53 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (46 lines)
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)

ATOM RSS1 RSS2