Re: IFS read files

["Mark S. Waterbury" <mark.s.waterbury@xxxxxxxxxxxxx>]

 Hi, Gary:

You did not specify if you are using CRTBNDRPG to compile and bind in 
"one step" ... if you used a CRTRPGMOD and then CRTPGM, you could just 
specify SRVPGM(IFSTEXTR4) on the CRTPGM command.

Probably the best and easiest thing to do is to create a binding 
directory (CRTBNDDIR) and then add your *SRVPGM IFSTEXTR4 to the binding 
directory, using the ADDBNDDIRE command.  NOTE: do NOT add both the 
*SRVPGM and the *MODULE to the binding directory. Normally, if you have 
created a *SRVPGM, then you do not want to "bind by copy" the *MODULE 
into every program that uses any procedures in that module. (I hope that 
makes sense.)

Then, you need to specify the name of your binding directory on the 
H-spec in your program that uses (or calls) "READLINE" ... e.g.:

    H BNDDIR('MYBINDDIR')

Try that, and see if that resolves your problem.

All the best,

Mark S. Waterbury

> On 9/25/2010 12:40 PM, Gary Kuznitz wrote:
> Thank you for the reply.
>
> On 25 Sep 2010 at 7:32, Dennis (Dennis Lovelady<rpg400-l@xxxxxxxxxxxx>) commented
> about RE: IFS read files:
>
> > When you compile your program, it might be good for you to specify
> > option(*SECLVL) on the compile command, so that additional information will
> > be provided for errors until you get a feel for them.
> I tried that.  What I see  in the compiled listing is:
> Errors were found during the binding step. See the job log for more information.
>    In the Job Log I get:
> CPD5D02 No definition was found for reference READLINE
> In Work with Objects:
> IFSTEXTR4   *SRVPGM   QGPL        RPGLE       IFS Text file service progr
> IFSTEXTR4   *MODULE   QGPL        RPGLE       Read and write streem files
>
> In the program with the error I have:
> c                   dow       readline(fd: %addr(line): %size(line))>=0
> QGPL is in *libl during the compile
>
> In IFSTEXTR4:
>   P readline        B                   export
>   D readline        PI            10I 0
>   D   fd                          10I 0 value
>   D   text                          *   value
>   D   maxlen                      10I 0 value
>
>   D readline        PR            10I 0
>   D   fd                          10I 0 value
>   D   text                          *   value
>   D   maxlen                      10I 0 value
>
>
> > If you call here for
> > help, it would be good to provide the error message ID (RNFxxxx) and the
> > source line (at a minimum) that caused the error.
> >
> > In this case, I can guess that the system's telling you that you're trying
> > to reference a procedure called READLINE and you have not provided a
> > prototype for that procedure.
> Is there anything else I need to do to get the program to see  readline ?
>
> Thank you,
>
> Gary Kuznitz
>
> > Dennis Lovelady
> > http://www.linkedin.com/in/dennislovelady
> > --
> > "Money is what you'd get on beautifully without if only other people weren't
> > so crazy about it."
> >          -- Margaret Case Harriman
> >
> >
> > > I'm getting an error saying:
> > > Definition not found for symbol 'READLINE'
> > >
> > > I'm not sure what I am doing wrong.
> > >
> > > What I need to do is read all records in all files in /tmp on the IFS.
> > >
> > > I have created the service program IFSTEXTR4 Read and write streem
> > > files to IFS
> > > from:
> > > www.scottklement.com/rpg/ifs_ebook/textwriting.html
> > > www.scottklement.com/rpg/ifs_ebook/textreading.html
> > >
> > > Then I used the example CH7ReadDir from:
> > > www.scottklement.com/rpg/ifs_ebook/ch7readdir.html
> > >
> > > And added the read file subroutine called showfile to it.
> > > From:
> > > www.scottklement.com/rpg/ifs_ebook/ch5test.html
> > >
> > > When I compile it the error I get is:
> > > Definition not found for symbol 'READLINE'
> > >
> > > If someone likes I can paste the code so you can look at it.
> > >
> > > Thank you,
> > >
> > > Gary
> > >
> > > --
> > > This is the RPG programming on the IBM i / System i (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 IBM i / System i (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.