Re: re-reading records in CL (not after EOF!)

Hi, Vern:

Yes, I understand the purpose of "other than start," as you have mentioned.
And upon reflection, I believe that *START may be present just to override
a previous override (before the file has been opened, of course), as in:

  PGMA:
          OVRDBF FILE1 TOFILE(FILE2) stuff... stuff... POSITION(*KEYAE 2
stuff...)
          CALL PGMB
          ...

PGMB:
         OVRDBF FILE1 SECURE(*NO) POSITION(*START)
         etc...

so maybe it's not *so* silly after all.  But I doubt it gets much use.

No, if you receive CPF0864, you're done.  Any attempt to read the file in
this instance of this program after that point will fail.

HTH
Dennis




|---------+------------------------------------>
|         |           Vern Hamberg             |
|         |           <vhamberg@xxxxxxxxxxxxxxx|
|         |           nology.com>              |
|         |           Sent by:                 |
|         |           midrange-l-bounces@xxxxxx|
|         |           ge.com                   |
|         |                                    |
|         |                                    |
|         |           06/20/2003 06:34 PM      |
|         |           Please respond to        |
|         |           Midrange Systems         |
|         |           Technical Discussion     |
|         |                                    |
|---------+------------------------------------>
  
>---------------------------------------------------------------------------------------------------------|
  |                                                                             
                            |
  |        To:      Midrange Systems Technical Discussion 
<midrange-l@xxxxxxxxxxxx>                         |
  |        cc:                                                                  
                            |
  |        Subject: Re: re-reading records in CL (not after EOF!)               
                            |
  
>---------------------------------------------------------------------------------------------------------|




Dennis

I've used other than *START when I know where I want to begin, as in
processing output of spooled files - why read the header? Of course, you're
stuck with version changes by IBM hurting you.

In the loop you describe, did you get the CPF0864? Will the RCLRSC work if
you do?

Vern

At 04:58 PM 6/20/2003 -0400, you wrote:

>Ummm... not unless they've changed the rules.
>
>First off, OVRDBF POSITION(*START) has always seemed like a silly value to
>me.  Where else would one expect it to begin processing?
>
>Secondly, you don't have to use explicit open in order to effectuate your
>OVRDBF command.
>
>Finally, as I said, reclaiming resources and issuing another read will
>cause the program to read FROM THE BEGINNING OF THE FILE.  (If I didn't
say
>it, I meant it.....)
>
>The following snippet will read the FIRST three records in a file
>repeatedly until your power company finds out you haven't paid your bill:
>
>     DCLF FILENAME
>
>LOOP:
>     RCVF
>     RCVF
>     RCVF
>     RCLRSC LVL(*CALLER)
>     GOTO LOOP
>
>(I know - I just tried it.  Works at V5R1 anyway.)
>
>Now, if your program reaches EOF, you're done, as Al pointed out earlier.
>
>
>Dennis


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