Re: Open with USROPN Files

["Joep Beckeringh" <joep.beckeringh@xxxxxxxxxx>]

Bill,

You are right in assuming that you can't do it that way. What you can do is
the following:
Eval          Qcmd = 'OVRDBF FILE(FILENAME) TOFILE('  +  %trim(DRKY)  + ')'
(execute command through QCMDEXC)
OPEN      FILENAME

You will have to be careful about level checks, of course.

Another way: if the caller of this program knows the actual name of the
file, you can pass it as a parameter and use the EXTFILE keyword on the
F-spec.

Joep Beckeringh


----- Original Message -----
From: "Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>
To: <RPG400-L@xxxxxxxxxxxx>
Sent: Thursday, August 21, 2003 9:03 PM
Subject: Open with USROPN Files


> I'm thinking the answer 'NO' but I'll ask anyway.
>
> I have a file that contains several records with the file names being used
> in serveral programs.
>
> The file names are brought into these programs as a field variable  to do
> things like CLRPFM, CPYTOIMPF, etc.
>
> Is it truth that there is no way to do this:
>
> C                                          EVAL       FILENAME    = ''' +
> %trim(DRKY)  + '''    <<<<<<<<<<<<<<<<<< this
> C                                          OPEN      FILENAME
>
> C                                          Eval          Qcmd = 'CLRPFM
> FILE('  +  %trim(DRKY)  + ')'
>
> Can't test myself iSeries not avail.
>
> Thanks
> Bill Hopkins