Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

ASCII PCL data in EBCDIC SCS spool file

101 views
Skip to first unread message

Ken Rokos

unread,
Sep 29, 1997, 3:00:00 AM9/29/97
to

Anyone coded PCL (Printer Control Language) data in an AS/400 spool
file to control the printer? I want to send codes to an HP5SiMX on
our Ethernet within an *SCS spool file. To start with, the splf would
have to be RPLUNPRT(*NO), but where do I go from there? How should
the outq be created? Use a WSCST? If so, what should it be like?

Thanks,

Ken


PDTPRAIM

unread,
Sep 30, 1997, 3:00:00 AM9/30/97
to

>Subject: ASCII PCL data in EBCDIC SCS spool file

Dear Ken,

The AS/400 offers a feature called ASCII transparency as part of the base
operating system. This feature allows you to ship ASCII information inside of
spool files. It is the foundation from which the Host Transform feature was
created. The feature is enabled with the EBCDIC control byte X'03 followed by
a count byte. As an example if you wanted to send the PCL sequence to call for
landscape orientation from your application, you would add the following
information to the appropriate part of your application 03 05 1B 26 6C 31 4F.
After your program ran and a spool file was created, you would not be able to
view the 5 bytes of ASCII information on an AS/400 (ie 5250) display.

I hope this info might be useful to you.

/Paul
--
Paul Tykodi, Technical Director
Praim Inc.
140 Congress St., #2
Portsmouth. NH 03801-4019
E-mail: pa...@praim.com


Simon Kuenstner

unread,
Oct 9, 1997, 3:00:00 AM10/9/97
to

This is a multi-part message in MIME format.
--------------93629E9B01D9B944B001743E
Content-Type: text/plain; charset=us-ascii
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Transfer-Encoding: 7bit

Create a spool file of type *USERASCII (not SCS), in RPG convert EBCDIC
character to the ASCII equivelent. For example take an A and convert it
to the ASCII equivelent hex code 41.

Use the following snippets of code and a data file I used for holding
the printer driver for inspiration.

Simon Kuenstner
Stillwater Consulting
61 0412 289 762
seku...@ozemail.com.au

PDTPRAIM wrote:

--------------93629E9B01D9B944B001743E
Content-Type: application/x-unknown-content-type-Excel.CSV; name="xapdrvpf.csv"
Content-Transfer-Encoding: base64
Content-Disposition: inline; filename="xapdrvpf.csv"

<encoded_portion_removed>
cmludGVyIGNvcGllcyIsIjMiDQoa
--------------93629E9B01D9B944B001743E
Content-Type: application/x-unknown-content-type-RPG_auto_file; name="Asccnv.rpg"
Content-Transfer-Encoding: base64
Content-Disposition: inline; filename="Asccnv.rpg"

<encoded_portion_removed>
ICAgICAgICAgICAgICAgICAgICAgQVNDQ05WDQoa
--------------93629E9B01D9B944B001743E
Content-Type: application/x-unknown-content-type-RPG_auto_file; name="Aschexco.rpg"
Content-Transfer-Encoding: base64
Content-Disposition: inline; filename="Aschexco.rpg"

<encoded_portion_removed>
--------------93629E9B01D9B944B001743E--


0 new messages