Re: Modify EBCDIC>ASCII xlate table

[Scott Klement <klemscot@xxxxxxxxxxxx>]

Hi Dan...

On Tue, 23 Jan 2001 D.BALE@handleman.com wrote:

> I've created a remote out queue to use an IP-addressable (ASCII) label printer
> on our network.  The printer requires an ASCII hex code '02' as a prefix to
> several "system-level" commands.

We have several Datamax label printers that use this x'02' as a prefix to
commands... there are also x'01' prefixes, too... 

> Our experience with this type of label printer thus far has been to attach it
> to a 5250 dumb terminal via the serial port.  The IDEA display station allows
> custom translation and it is here that we translate an '@' character (EBCDIC
> x'7C') to an ASCII x'02' character.

Interesting idea... I could probably use that :)

> Is a workstation customizing object the way to go here?  Is there an existing
> EBCDIC-to-ASCII *WSCST object that I can copy to a new one and modify the one
> byte?

Just set one up and tell it that '@' is an ASCII control sequence...
Then tell it that the sequence is x'02'

Like this:

: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.

If you typed that into source member LABEL in LIB/QTXTSRC, then you'd
compile it with:

CRTWSCST WSCST(MYLIB/LABEL) SRCFILE(LIB/QTXTSRC)

then specify MYLIB/LABEL as the workstation customizing object.



+---
| 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
+---