Re: Overlapping conditioned Subfile fields

Hi Andy,

IIRC, if the SFLPAG = SFLSIZ, you can actually use field conditioning
indicators, e.g.

N40         ITEMS1           15A    O 6    7TEXT('Item Code')
N40         ITDSS1           30A    O 6   25TEXT('Item Desc.')
N40         FREES1            9S    O 6   60TEXT(Free Stock')

 40         ORDNS1            7A    O 6    7TEXT(Order #')
 40         CUSCS1           10A    O 6   16TEXT(Customer')
 40         OQTYS1            5S    O 6   30TEXT('Order Qty)

Otherwise, your idea of a single display file field formatted by a DS will
work.

The DSPATR(ND) will not work because the field and its accompanying
attribute byte are still on the screen even though they are not visible.  If
another field's attribute byte or data bytes happens to change the attribute
byte of the non-display field, it will suddenly appear.

hth,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax


----- Original Message -----
From: "andy.jeffery" <andy.jeffery@ntlworld.com>
To: <rpg400-l@midrange.com>
Sent: Thursday, February 14, 2002 5:02 PM
Subject: Overlapping conditioned Subfile fields


> Can this be done?
>
> Basically I have a subfile containing Header and associated Detail lines.
> I want to Display SKU, Description & Free Stock when displaying the Header
> and
> Order#, Customer Code, Qty etc at detail level however the conditioning of
> the fields
> using DSPATR(ND) doesn't seem to work?  I seem to recall this being a
> problem years
> ago but can anyone confirm.
>
> Tempted to use a single subfile field and populate it via a Data Structure
> dependant upon Header
> or Detail?
>
> Code Snippet:
>
>         ITEMS1           15A    O 6     7TEXT('Item Code')
> N40                                            DSPATR(ND)
>         ITDSS1            30A    O 6   25TEXT('Item Desc.')
> N40                                            DSPATR(ND)
>         FREES1              9S    O 6   60TEXT(Free Stock')
> N40                                            DSPATR(ND)
>
>         ORDNS1            7A    O 6     7TEXT(Order #')
>       40                                            DSPATR(ND)
>         CUSCS1            10A   O 6   16TEXT(Customer')
>       40                                            DSPATR(ND)
>         OQTYS1              5S   O 6   30TEXT('Order Qty)
>       40                                            DSPATR(ND)
>
> Thanks In Advance.
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com