× 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.




Elimiate the OPNDBF command - you don't need it.  On first read, RCVF will
implicitly open the file
Use RCLRSC *CALLER to close files you have previously implicitly opened in
CL.

HTH
Dennis




                                                                                
                                                                     
                      Martin Rowe                                               
                                                                     
                      <martin@xxxxxxxxxx>          To:      Midrange Systems 
Technical Discussion <midrange-l@xxxxxxxxxxxx>                          
                      Sent by:                     cc:                          
                                                                     
                      midrange-l-bounces@x         Subject: Re: re-reading 
records in CL (not after EOF!)                                            
                      idrange.com                                               
                                                                     
                                                                                
                                                                     
                                                                                
                                                                     
                      06/20/2003 04:19 AM                                       
                                                                     
                      Please respond to                                         
                                                                     
                      Midrange Systems                                          
                                                                     
                      Technical Discussion                                      
                                                                     
                                                                                
                                                                     
                                                                                
                                                                     




On Fri, 2003-06-20 at 04:08, Ken Sims wrote:
> Hi Martin -
>
> >I did see mention of POSDBF in the archives, which I'll try
> >tomorrow, but can anyone shed any light on this?
>
> There are probably two open data paths, one from the OPNDBF and one from
> the first RCVF.  Look at the job after the first RCVF and see if that is
> true.  If so, doing an OVRDBF with SHARE(*YES) should take care of that.

Hi Ken

The job shows the file open twice, firstly without a format name (from
the OPNDBF), and one with the format (RCVF) as you suggested.

Something like that this I think will work:
>
> OVRDBF ... SHARE(*YES)
> OPNDBF
>
> first loop
>
> POSDBF
>
> second loop
>
> CLOF
> DLTOVR

It does indeed. POSDBF without the initial OVRDBF SHARE(*YES) before the
second loop still doesn't reposition to the start, but I get record 1
again once SHARE(*YES) is specified. Thanks very much for your help.

Regards, Martin
--
martin@xxxxxxxxxx  AIM/Gaim: DBG400dotNet  http://www.dbg400.net       /"\
DBG/400 - DataBase Generation utilities - AS/400 / iSeries Open        \ /
Source free test environment tools and others (file/spool/misc)         X
[this space for hire]  ASCII Ribbon Campaign against HTML mail & news  / \

_______________________________________________
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 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.