If no selection is required, then simply assign a file information data structure to the file with the INFODS(dsName) on the F-spec and define an integer over pos.156-159 -- that should be the number of records in the file when it was opened.

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx> /

On 3/22/2012 2:23 PM, Stone, Joel wrote:
It depends:

1) If there will only be a handful of hits on the file, then simply SETLL and READE counting the hits.

2) If there may be a lot of hits, then SQL might be a better approach.



-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Vinay Gavankar
Sent: Thursday, March 22, 2012 10:56 AM
To: Midrange Systems Technical Discussion
Subject: Re: Documentation about QC2LE

It is in an RPG program.

On Thu, Mar 22, 2012 at 10:31 AM, Stone, Joel<Joel.Stone@xxxxxxxxxx> wrote:

Please explain what you are trying to do.

Are you trying to retrieve this count into a CL variable?

Then use this command:

LOOKUPSQL LOOKUPEXP() TABLE(cust) +
WHERE('custkey = ''123''') RETURNVAR(&custCount)

Uses LOOKUPR


http://www.mcpressonline.com/programming/sql/using-dynamic-sql-in-cl-part-2retrieving-a-data-value.html




-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:
midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Vinay Gavankar
Sent: Wednesday, March 21, 2012 6:26 PM
To: Midrange Systems Technical Discussion
Subject: Documentation about QC2LE

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.


________________________________________________________________________
This inbound email has been scanned for all viruses by the MessageLabs
SkyScan
service.
________________________________________________________________________

______________________________________________________________________
This outbound email has been scanned for all viruses by the MessageLabs
Skyscan service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________
--
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.



This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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].