I've done this without using the p-fields for RPG II panels, since they have no concept of such: Create a field with an extra byte in the front. By setting the hex value and moving it into that first byte, you can set the special conditions, such as underlining, colors, etc. Might work for printer files, but I've never tried it there. Might have to have a byte at the end to reset the hex value, otherwise once the underline hex value was set, for example, it might keep underlining the fields that follow. I know that I had to add a "stop" byte at the end of the display fields.

Again, I've never tried this for printer files, but it might be possible to just have separate "indicator" and "stop" bytes on the printer definition since, unlike display files, one isn't required to have a space between fields. And I'm not even sure if the hex codes that apply to the 5250 datastream would work for printers, nor where to find out what they might be. Even if it's possible, it seems like a lot of work.

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 Gene Burns
Sent: Wednesday, October 15, 2008 10:36 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: More than 99 indicators needed

Sorry. You said printer not display, never mind.


On Wed, Oct 15, 2008 at 10:35 AM, Gene Burns <burns.gene@xxxxxxxxx> wrote:

Use the DSPATR with a program field.


A FLD1 R B 22 15REFFLD(FILE/FLD119)
A DSPATR(&PTPFLDS)

A PTPFLDS 1 P


On Wed, Oct 15, 2008 at 9:38 AM, Thomas Garvey <tgarvey@xxxxxxxxxx> wrote:

Anyone have any ideas on how to accommodate a printer file that requires
attributes that would exceed using 99 indicators? For example, if I need
to
specify the HIGHLIGHT attribute individually on more than 100 fields on a
print line, how could it be done, considering there's the practical limit
of
99 indicators?


Best Regards,

Thomas Garvey

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



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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.