Re: Reading a member file -- RPG400-L

Michael, earlier you had suggested using the ExtMBr, w/a variable for the
member name. I am getting a halt on using the variable but not a proper
member name.

Is there a problem in the way I am coding?

if not, can one just move the desired member name to this proper member
name on the ExtMbr?

Thanks,
Steve
> Here's what I would do...  Either use the API that the other person
> suggested (I'll have to keep that in mind the next time, that one is new
> to
> me), or the CL command that I suggested.
>
> If you use the CL command, first execute the CL command to build the file
> in QTEMP...
>
> Then in the RPG program do...
>
> FDSPFD     IF   E           K DISK    ExtFile(QTEMP/DSPFD)
>  * I'm doing this from memory, so I don't know if you can
>  * reference a field from DSPFD file. You may need to Change
> FMYFILE    IF   E           K DISK    ExtMbr(MBNAME) UsrOpn
>
>  /Free
>
>    Read DSPFD;
>    DoW not %EoF(DSPFD);
>
>        // Close MyFile In Case It's Open
>        If %Open(MyFile);
>           Close MyFile;
>        EndIf;
>
>        // Open MyFile To The Member
>        // Specified In field MBNAME
>        Open MyFile;
>
>        Read MyFile;
>        DoW not %EoF(MyFile);
>
>            // Do MyFile Processing... Writing To Workfile
>            Read MyFile;
>        EndDo;
>
>        Read DSPFD;
>    EndDo;
>
>    // Close MyFile In Case It's Open
>    If %Open(MyFile);
>       Close MyFile;
>    EndIf;
>
>    *InLr = *On;
>    Return;
>
>  /End-Free
>
>
>
> Michael Schutte
>
>
>
>
>              steema@diskhaven.
>              com
>              Sent by:                                                   To
>              rpg400-l-bounces@         "RPG programming on the AS400 /
>              midrange.com              iSeries" <rpg400-l@xxxxxxxxxxxx>
>                                                                         cc
>
>              05/25/2006 05:38                                      Subject
>              PM                        Re: Reading a member file
>
>
>              Please respond to
>               RPG programming
>               on the AS400 /
>                   iSeries
>              <rpg400-l@midrang
>                   e.com>
>
>
>
>
>
>
> I think what I can do is to read the entire file, and make a work file out
> of it.
> I only need to be concerned w/ the past 2 years.
>
> Is the approach the same in this scenario, of reading the file, all of the
> members? U would have to make it a called program w/ the ovrdbf?
>
>> I don't know if you got the answer you wanted, but one suggestion that
>> comes to mind.
>>
>> DSPFD FILE(LIBRARY/FILE) TYPE(*MBR) OUTPUT(*OUTFILE) FILEATR(*ALL)
> OUTFILE
>> (QTEMP/DSPFD)
>>
>> Then you can read through QTEMP/DSPFD looking at the field... MBNAME
>>
>> Hope that helps.
>>
>>
>> Michael Schutte
>>
>>
>>
>>
>>              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.
>>
>>
>
> --
> 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.
>
>