MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » June 1999

Re: Is it possible to open file dynamically in RPG or COBOL


  • Subject: Re: Is it possible to open file dynamically in RPG or COBOL
  • From: "Henrik Krebs" <hkrebs@xxxxxxxxx>
  • Date: Wed, 2 Jun 1999 02:13:02 -0500 (CDT)

fixed

Nedenfor er resultatet af din e-mail formular.
Indsendt af hkrebs@hkrebs.dk

message: No problem opening a file within RPG (I don't know the codes in COBOL, 
but they are similar I guess):

The F-SPEC must have an 'UC'=UserControlled
You must have an C-spec 'OPEN' 

Note the behaviour of QCMDEXC - The override works for current invocation level 
and downwards. A call to a CL-program would not do it unless it specifies 
OVRSCOPE(*JOB).

Also consider taking in the File INF-DS. It has a 'file open?'switch. Use this 
if you want to test if the file already is open so you can do a close first 
before doing a new override and re-open.

An example:

FVARFILE IF  F      80            DISK                           UC

+---
| 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
+---






Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact