Re: data structure has no valid subfields

["Peter Dow" <pcdow@xxxxxxxxx>]

Hi Joel,

When using a display file as the external definition of a data structure, it
will only pick up Input or Both (I/O) fields.

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

----- Original Message -----
From: "Joel Fritz" <JFritz@sharperimage.com>
To: "RPG400-L@midrange. com (E-mail)" <RPG400-L@midrange.com>
Sent: Thursday, January 31, 2002 3:21 PM
Subject: data structure has no valid subfields


> I must be missing something simple and obvious.  I'm trying to use some
> externally defined data structures based on several different record
formats
> in a display file.  When I compile the program I get a warning that
> "*RNF3530 00      2 Data structure has no valid subfields.  " (This one
> comes from a program that has two of them.)  The problem is that the
fields
> don't get defined in the program although the data structure does.  I
wrote
> a minimal test program with two data structures defined from the same
> display file and got the same results.  For the sake of brevity I built a
> display file that only includes abridged versions of the two record
formats.
> Same results.  Here's the code:
>
> Display File:
>
>   A                                      DSPSIZ(24 80 *DS3)
>   A          R NAMADR
>   A                                      OVERLAY
>   A                                  4  2'Name         :'
>   A            ADRNAME   R        O  4 18REFFLD(RREF/NAME U#LIB/U#REFP)
>   A            ADRACCT   R     Y  O  4 49REFFLD(RREF/ACCT U#LIB/U#REFP)
>   A                                      EDTWRD('   -   -   ')
>   A          R SELECTOR
>   A                                      OVERLAY
>   A                                  4  2'Name:'
>   A            SELNAM        30   B  4 13
>   A                                  5  2'ZIP'
>   A                                  5  6':'
>   A            SELZIP         9A  B  5 13
>
>
> Program:
>
> D namescr       e ds                  extname(ci001dxxx : namadr  )
> D selscr        e ds                  extname(ci001dxxx : selector)
> C                   eval      *inlr = *on
>
>
> Here's the part of the compile listing that's relevant:
>
>                           S o u r c e   L i s t i n g
>
>      1 D namescr       e ds                  extname(ci001dxxx : namadr  )
>
>
>
*---------------------------------------------------------------------------
> -----------------*
>         * Data structure . . . . . . :  NAMESCR
> *
>         * External format  . . . . . :  NAMADR : JEFTST/CI001DXXX
> *
>
>
*---------------------------------------------------------------------------
> -----------------*
> ======> aaaaaaaaaaaaaaa
>
> *RNF3530 00 a      000200  Data structure NAMESCR has no valid subfields.
>
>      2 D selscr        e ds                  extname(ci001dxxx : selector)
>
>
>
*---------------------------------------------------------------------------
> -----------------*
>         * Data structure . . . . . . :  SELSCR
> *
>         * External format  . . . . . :  SELECTOR : JEFTST/CI001DXXX
> *
>
>
*---------------------------------------------------------------------------
> -----------------*
>      3=D SELNAM                        30A
>
>      4=D SELZIP                         9A
>
>      5 C                   eval      *inlr = *on
>
>        * * * * *   E N D   O F   S O U R C E   * * * * *
>
> NOTICE:
> All e-mail sent to or from this e-mail address will be received or
otherwise
> recorded by The Sharper Image corporate e-mail system and is subject to
> archival, monitoring, review by and/or disclosure to Sharper Image
security
> and other management.  This message is intended only for the use of the
> addressee and may contain information that is privileged and confidential.
> If you are not the intended recipient, dissemination of this communication
> is prohibited.
> _______________________________________________
> 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