Re: Stupid question

Well, he's got no fields referenced to the reference file also.  I
wouldn't use the REF without actually referencing a field in the file.


On Fri, 19 Nov 2004 14:06:19 -0800, jfeador@xxxxxxxxxx
<jfeador@xxxxxxxxxx> wrote:
> I may be reading more into this than I should, correct me if I'm wrong, but
> the error message that he's getting is indicating that his reference field
> isn't in the source, which I assume has nothing to do with the presence (or
> not) of the Subfile's Control record... Does it?
> 
> * CPD5238      30* * * * 1   E NMessageF. .E.X.P:A NNo valid recordRfound in
> source.
> 
> 
> Jerry L. Feador
> Sr. Programmer/Analyst
> Kia Motors America, Inc.
> (949) 595-5810
> 
> 
> 
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [ mailto:rpg400-l-bounces@xxxxxxxxxxxx
> <mailto:rpg400-l-bounces@xxxxxxxxxxxx> ]On Behalf Of Tony Carolla
> Sent: Friday, November 19, 2004 1:54 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Stupid question
> 
> Don't you need a subfile control record also (SFLCTL)?  If you need an
> example of a subfile control rec, I can post one.
> 
> 
> On Fri, 19 Nov 2004 13:49:40 -0800 (PST), Douglas W. Palme
> 
> 
> <dpalme@xxxxxxxxxxxxxxxxxxxxx> wrote:
> > I am trying to create a subfile DDS
> >
> > A very simple one at thatâ.displays ONE FRIGGIN FIELD:
> >
> > Here is the DDS code:
> >
> >  FMT DP
> .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++
> ++++
> >         *************** Beginning of data
> ****************************************************************************
> ***********
> > 0001.00      A                                      REF(RECNOTES)
> 041119
> > 0002.00      A          R RECSFL                    SFL
> 041119
> > 0003.00      A            NOTES         75A     4  1
> 041119
> >         ****************** End of data
> ****************************************************************************
> **************
> >
> > When I compile I get the following error message:
> >
> >      200                  R RECSFL                    SFL
> >      300                    NOTES         75A  O  4  1
> 75            1       1
> >  * CPD5238      30* * * * 1   E NMessageF. .E.X.P:A NNo valid recordRfound
> in source.
> >   5722SS1 V5R2M0  020719                  Data Description
> DPALMES/RECNOTESSF      11/19/04 16:45:32        Page    3
> >                                            Message Summary
> >      Total          Informational          Warning        Error
> Severe
> >                         (0-9)              (10-19)       (20-29)
> (30-99)
> >          1                 0                    0             0
> 1
> >
> > I have no idea what I have wrong.
> >
> > Suggestions?
> >
> > Douglas
> >
> > --
> > 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
> <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
> <http://archive.midrange.com/rpg400-l> .
> >
> >
> >
> 
> --
> 
> 
> "Enter any 11-digit prime number to continue..."
> 
> --
> 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
> <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
> <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.
> 
> 


-- 
"Enter any 11-digit prime number to continue..."