Re: Documentation about QC2LE

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++;