Re: Checking for the number of records in a file

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.