|
Hi Mike
Nice sample code - but it is C/C++. Vinay is working in RPG already -
for HIM there is no reason to go through the extra work required when
using these function - _Ropen, _Rformat, _Rclose, at least, right? (If
those are not needed, well, it's been a long time since I used these
functions.)
The _R* functions give you RLA in C/C++ - and there are even some
operations supported there that are not in the RPG panoply.
Using these functions IN RPG source would not look so simple as your
example - DOW/ENDDO is going to have more code to it - and Vinay might
just as well use READE and recordCount += 1;
RLA in C/C++ does have its place - obviously, if you don't know RPG and
are a C/C++ shop. One other place is when you need to work with the
buffers. Another is working in some generic sense with null-capability,
where RPG has some restrictions.
But in general, in my experience, support for RLA in C/C++ is an
accommodation, not really amenable. JMHO!
Bottom line - use RPG (or SQL here) for what it is really good at - and
the same with C/C++ - shoehorning one into the other is an exercise in
frustration.
Vern
On 3/23/2012 2:07 AM, Mike Bardin wrote:
On Wed, 21 Mar 2012 19:26:18 -0400--
Vinay Gavankar<vinaygav@xxxxxxxxx> wrote:
Hi,/*
Where can I find any documentation about what procedures are
available in
QC2LE directory, and maybe how to use them?
I came across a program, which was using prototype called _RLocate
to get
the RRN of a record based on a key from a keyed logical file.
I wanted to get the total number of records in that file which have
Key
equal to a particular value.
Any information would be helpful.
Thanks
Vinay
--
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.
variables: filePointer, keyValue,keyLength,recordCount
*/
recordCount=0;
_Rlocate(filePointer,NULL,0,__START);
while
((_Rlocate(filePointer,&keyValue,keyLength,__KEY_EQ))->num_bytes)
recordCount++;
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.