RE: Barcode that is alpha

Never tried this with bar codes, but I have "tested" AFP reports by using the viewer in iNav. Unlike the green-screen viewer in WRKSPLF, it shows the final result with special formatting, line and page breaks, etc. There are enough slight differences sometimes between the viewer and reality, or simply questions ("Is the field actually printing in the right position on the form?") that a real report is eventually necessary, but it (the iNav viewer) can save time (not to mention paper) to find obvious mistakes before resorting to the hardcopy.

Jerry C. Adams
IBM System i Programmer/Analyst
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Buck
Sent: Monday, May 12, 2008 11:09 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Barcode that is alpha

Adam West wrote:

I was just curious when I look at the output it doesn't look like a bar code at all.
Before I tell the operators to be on the lookout for this, is this correct? that is it
will print a barcode on the printer but if you look at the spool on WRKSPLF it shows
as a non barcode text field?

Guessing that 'looking at' here means WRKSPLF, that's right. You
probably see a message at the bottom of the display saying 'Bar codes
not displayed.' Just print it out and see how it looks with your
printer. Here is a simple sample:

A R PRTHED
*
A 1'Bar code test 14'
A SKIPB(3)
A SPACEA(1)
A R PRTDTA
A CODE 14 O 10BARCODE(CODE3OF9 *NOHRI)
A SPACEA(3)

Compile with DEVTYPE(*AFPDS)

fbarcode o e printer oflind(*in01)
c write prthed
c eval code = 'TEST123'
c write prtdta
c eval *inlr = *on
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.