Re: Creating SATO BarCode labels in RPG

[Charles Wilt <charles.wilt@xxxxxxxxx>]

Define/Override your printer file to be a DEVTYPE(*USERASCII).

All you need in the printer file is a single character field.  You won't be
able to hardcode text and multiple records like you would with a normal
report printer file.

If you have text along with the escape code, you'll want to convert your
text from EBCDIC to ASCII; using iconv() APIs or the older QDCXLATE() API
or if on 7.2 you code use RPG's built in translation support:
http://www.itjungle.com/fhg/fhg092915-story02.html

Charles



On Tue, May 10, 2016 at 1:57 PM, Fred Horvat <horvat@xxxxxxxx> wrote:

> Hi,
>
>
>
> I am trying to generate a 4 X 6 label in RPG to a SATO M8485Se printer.  I
> have downloaded the manual and understand how to code the label.  I know it
> is possible via RPG as I have read on the Web that people have done it but
> I
> have not found any sample RPG code.  The SATO uses Escape Codes to generate
> the printout on the label.  The best I could figure out on how to generate
> ESC is via DDS with the TRNSPY in the Printer File.
>
>
>
> A                                      DFT(X'1B') TRNSPY
>
>
>
> Is there a way to generate the ESC in the RPG program?  I am generating
> good
> output right now via the above method but it makes for many lines in the
> Printer File.  There must be a simpler way.  Does anybody have any
> suggestions or sample code?
>
>
>
>
>
> Fred Horvat
>
>  <mailto:horvat@xxxxxxxx> horvat@xxxxxxxx
>
> 216-426-5692
>
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.