RE: Open with USROPN Files

["Jansen, Larry" <ljansen@xxxxxxxxxxxxx>]

Based on what you need to do (CLRPFM, CPYTOIMPF), there is no need to open
the file, just execute the CL commands, either via a CL program or via
QCMDEXC in RPG.
Larry Jansen

-----Original Message-----
From: Bill Hopkins [mailto:BHopkins@xxxxxxxxxxxxxxxxxxx]
Sent: Thursday, August 21, 2003 3:03 PM
To: RPG400-L@xxxxxxxxxxxx
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
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.512 / Virus Database: 309 - Release Date: 8/19/03
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.512 / Virus Database: 309 - Release Date: 8/19/03