× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. MIDRANGE-L
  3. May 2012

RE: RCVF - how to do multiple CHAINS in one CL pgm

The technique requires the use of CPYF, using the record/field selection, to
copy the 1 record you need into a work-file you have opened, then use a
simple sequential rcvf.
As long as you don't hit EOF (CPF0864 I think) and close the file, you can
read any records, just like a CHAIN.



Regards

Jeff Bull
iSeries Technical Consultant
NYCO Ltd - iSeries & AS/400 Automation Specialists
Tel: +44(0)20 8416 3778
Fax: +44(0)20 8416 3779
Mobile: +44(0)77 5692 3335
Email: jeff.bull@xxxxxxxxxx
Website: www.nyco.co.uk
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Anderson, Kurt
Sent: 30 May 2012 21:23
To: Midrange Systems Technical Discussion
Subject: RE: RCVF - how to do multiple CHAINS in one CL pgm

Hi Michael,

Wouldn't it be nice if the help page mentioned which version it was
available at?
Looks like it becomes available at 6.1
http://publib.boulder.ibm.com/infocenter/iseries/v6r1m0/index.jsp?topic=/rba
m6/rbam6whatsnew.htm

-Kurt
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Ryan
Sent: Wednesday, May 30, 2012 3:19 PM
To: Midrange Systems Technical Discussion
Subject: Re: RCVF - how to do multiple CHAINS in one CL pgm

CLOSE? What version is that?

On Wed, May 30, 2012 at 4:13 PM, Anderson, Kurt <KAnderson@xxxxxxxxxxxx>
wrote:
Joel,

Sorry, it's not CLOF, it's actually CLOSE.

"The Close Database File (CLOSE) command will explicitly close a database
file that was implicitly opened by a Receive File (RCVF) command run within
the same CL program or ILE CL procedure. A file with the same open
identifier must have been declared by a Declare File (DCLF) command within
the same CL program or ILE CL procedure.

After the CLOSE command is run, the next RCVF command for this file will
implicitly reopen the file and read a record from the file.

You can use CLOSE for a database file that is already closed or was never
opened; no error message will be sent."

Thanks,
Kurt

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Stone, Joel
Sent: Wednesday, May 30, 2012 2:17 PM
To: 'Midrange Systems Technical Discussion'
Subject: RE: RCVF - how to do multiple CHAINS in one CL pgm

Good idea, but CLOF only works with OPNQRYF and OPNDBF according to help.

I tried that, issues error Message ID . . . . . . :   CPF4520 Date
sent  . . . . . . :   05/30/12      Time sent  . . . . . .

Message . . . . :   No file open with identifier EMADDR.






                       Close File - Help

 The Close File (CLOF) command closes a database file.  This command
 works in conjunction with the Open Query File (OPNQRYF) and Open
 Database File (OPNDBF) commands.



-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Anderson, Kurt
Sent: Wednesday, May 30, 2012 2:10 PM
To: Midrange Systems Technical Discussion
Subject: RE: RCVF - how to do multiple CHAINS in one CL pgm

You can't reposition an open file, can you?  For some reason I was
thinking you couldn't.  Then again, I rarely do anything than the most basic
I/O in CL.

Have you tried using CLOF before going to the Top label?

-Kurt

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Stone, Joel
Sent: Wednesday, May 30, 2012 1:46 PM
To: midrange-l@xxxxxxxxxxxx
Subject: RCVF - how to do multiple CHAINS in one CL pgm

I have a CL loop as follows:


Top:
Load keyValue
OVRDBF     FILE(TestFile) POSITION(*KEYAE 1 *N &KeyValue) rcvf goto
Top





The OVRDBF positions the file ONLY the first time thru (apparently it only
positions for the NEXT file open).


How can I read the record that I need (using keys) several times in on CL
run?


Thanks!



______________________________________________________________________
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 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 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 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 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 thread ...
Follow-Ups:
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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