• 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)

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 

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

This thread ...

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