Re: Reading a member file

Also, as an FYI, you can use the FSPEC keyword ExtMbr to override to a
certain member, instead of issuing an OVRDBF.  You can also specify a field
to use in the program in this extmbr keyword.

This is from memory so I can remember if its...
FmyFile                      USROPN
F                            ExtMbr(&member)

Or

FmyFile                      USROPN
F                            ExtMbr(member)

D member         S       10A

 /Free

   If %Open(myFile);
      Close myFile;
   EndIf;
   member = format1;
   open myFile;
   ... Do Something
   Close myFile;

    member = format2;
    Open myfile;
    ... do something else
    Close myFile;
    *inLR;
    Return;
 /End-Free



Michael Schutte



                                                                           
             Alan Shore                                                    
             <AlanShore@xxxxxx                                             
             om>                                                        To 
             Sent by:                  RPG programming on the AS400 /      
             rpg400-l-bounces@         iSeries <rpg400-l@xxxxxxxxxxxx>     
             midrange.com                                               cc 
                                                                           
                                                                   Subject 
             05/25/2006 12:04          Re: Reading a member file           
             PM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           





My first impression on this would be to define the file on the F-spec as a
usropen file.
Once you have the invoice number, submit an OVRDBF of the file with the
member name and then open, and read that file to obtain the comment. Don't
forget to close it at the end



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx



             steema@diskhaven.
             com
             Sent by:                                                   To
             rpg400-l-bounces@         rpg400-l@xxxxxxxxxxxx
             midrange.com                                               cc

                                                                   Subject
             05/25/2006 11:47          Reading a member file
             AM


             Please respond to
              RPG programming
              on the AS400 /
                  iSeries
             <rpg400-l@midrang
                  e.com>






HI - also they now want to add a comment to the report. Doesn't have to be
on the subfile. THe comment is stored on a file by member. THe name of the
member is the invoice number. That is fine I have that. My question is how
to read this file, by setll, or can chain, or some other way?

Thanks,
Steve
--
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.

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