Re: Overlapping conditioned Subfile fields -- RPG400-L

Peter you're a star!




"Peter Dow" <pcdow@yahoo.com>@midrange.com on 02/15/2002 05:48:39 AM

Please respond to rpg400-l@midrange.com

Sent by:  rpg400-l-admin@midrange.com


To:   <rpg400-l@midrange.com>
cc:
Subject:  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

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