Re: Printing a Hex(02)

Just ran across this problem myself in the past two months.  Prior to then,
all of our Datamax's were attached via IDEA dumb terminals that allowed
customized translations - in our apps, we used the '@' character when the
Datamax expected x'02' and the IDEA terminal translated it appropriately.

Then a few months ago, we had to use a Datamax at a new location using IP and,
thus, were unable to depend on a dumb terminal to translate the '@' to x'02'.
Thanks to someone on this very list, whose name escapes me at the moment, I
was able to modify his example WSCST source to the following:

:WSCST DEVCLASS=TRANSFORM.
     :TRNSFRMTBL.
     :SPACE
       DATA ='20'X.
     :CARRTN
       DATA ='0D'X.
     :LINEFEED
       DATA ='0A'X.
     :ASCCPINFO.
     :CODEPAGE
       CODEPAGE = 437
       DATA =''X.
     :ASCIICTL
       ASCII ='40'X
       DATA ='02'X.
     :EASCCPINFO.
:EWSCST.

Note that in the above source ASCII ='40'X is referring to the '@' character;
when I first saw this, I thought I was seeing a reference to a blank character
x'40' in EBCDIC.

In your printer output, use '@' in place where Datamax is expecting x'02'.

HTH!

Dan Bale
IT - AS/400
Handleman Company
248-362-4400  Ext. 4952

-------------------------- Original Message --------------------------



I am trying to print to a Datamax label printer from the AS/400.  This printer
requires a special "attention getter" character to be sent to the printer
 before
it will print.

This special character is a <STX> that has the Hex value of '02'.
My print program contains the following statement to set the hex value :

MOVEL     X'02'         PRTDTA

I've changed the printer file so that it has Replace Unprintable Characters
(*NO) .
My problem is that this doesn't seem to work.  It is as if the control
 character
of Hex(02) is not getting to the printer.  The Printer definitey works,  it's
been connected to a PC and works ok when a PC print is sent.
I think that the Hex(02) is getting lost somewhere when the AS/400 sends the
report to the printer but I don't understand why.

Can anybody explain this or suggest any solution ?

Thanks

Phil
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---