Re: QONQRYF Question

[ubhalla@xxxxxxxxxx]

You may want to check two things.

Scope of the override for ODP share *JOB

Positioning  of record pointer should not be tough as you can do it in either
progA or ProgB as long
as the  FILEA shares the same ODP in both programs.

- Uday




"Bruce Collins" <bacollins@twitchellcorp.com> on 01/07/2000 03:16:49 PM

Please respond to MIDRANGE-L@midrange.com

To:   MIDRANGE-L@midrange.com
cc:    (bcc: Uday Bhalla/CGS/US)

Subject:  QONQRYF Question




I am running a single opnqryf command in a CLP program. Within this program
I am doing a call to an RPG program and after it finishes I am calling
another. Both programs use the same file that I am running the OPNQRYF
command over. I remember about being able to reset the file cursor to the
begining of the file so I would not have to run the OPNQRYF command for the
second Program. For example:

PGM
OVRDBF FILEA SHARE(*YES)
OPNQRYF FILEA QRYSLT(*ALL)
CALL PROG1
CALL PROG2
DLTOVR *ALL
ENDPGM

Bruce Collins
MIS Manager
Twitchell Corporation
4031 Ross Clark Circle NW
Dothan, AL 36303
bacollins@twitchellcorp.com
(334) 792-0002 x 1266
(334) 673-4121 Fax

Opinions expressed do not necessarily represent those of my employer or
anyone else.

**** NOTE TO RECRUITERS ****
I nor anyone that I know of is interested in any new and/or exciting
positions. Please do not contact me.

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---






+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---