Re: Checking for the number of records in a file

[Michael Ryan <michaelrtr@xxxxxxxxx>]

Plus eight inch diskettes and magazines.

On Wed, Nov 25, 2009 at 5:06 PM, Evan Harris <spanner@xxxxxxxxxx> wrote:

> My recollection is that on the system/38 the number of records was
> available
> in DSPFD but that was about it. We wrote an RPG that we got out of News
> 34/38 (as it was called at the time) to get the number of records in a
> nicer
> format but I don't remember why we did it or how (I think the INFDS or
> equivalent).
>
> I can't specifically remember if you could do a DSPFD to an outfile but
> somehow I think not; you had to do a print screen I think, hence the
> requirement for an RPG program.
>
> Man, I loved that box, it had tons of personality - made you do real
> computer thing and had flashing lights to boot.
>
> Regards
> Evan Harris
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Simon Coulter
> Sent: Thursday, 26 November 2009 10:08 a.m.
> To: Midrange Systems Technical Discussion
> Subject: Re: Checking for the number of records in a file
>
>
> On 25/11/2009, at 3:52 AM, Mike Cunningham wrote:
>
> > Thanks all - exactly what I needed. Has this really been there since
> > V5R1?
>
> I see some later appends addressing this but:
>
> RTVMBRD has been present since early OS/400--VRM211 by my recollection
> but I can't find data to support the earliest occurrence. It is
> described in my copy of the VRM220 Book Manager Library (without
> change bars so must have been provided in an earlier release). I have
> code indicating I first used it in October 1991 so it's been around at
> least since then.
>
> I see some comments suggesting RTVMBRD was present on CPF but I
> dispute that. It isn't listed in the Command Syntax Diagrams section
> of my IBM System/38 Programming Reference Summary (SC21-7734-8) for
> Release 8 Modification Level 0 of CPF, nor is it provided as a command
> in the QSYS38 compatibility library on OS/400.
>
> I also have OS/400 code I wrote in October 1990 to determine the
> record count of a file which supports the lack of a RTVMBRD command
> until some time after that. It's possible I missed the existence of
> RTVMBRD but unlikely. I recall being pleasantly surprised when it
> arrived.
>
> Regards,
> Simon Coulter.
> --------------------------------------------------------------------
>    FlyByNight Software         OS/400, i5/OS Technical Specialists
>
>    http://www.flybynight.com.au/
>    Phone: +61 2 6657 8251   Mobile: +61 0411 091 400        /"\
>    Fax:   +61 2 6657 8251                                   \ /
>                                                              X
>                  ASCII Ribbon campaign against HTML E-Mail  / \
> --------------------------------------------------------------------
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.