RE: Open with USROPN Files

Thanks Larry I all ready do the CPYTOIMPF in the program via QCMDEXC pr 
with file name coming in from field in a file. Read loops through records 
and builds QCMDEXC for each,that works. I then started to do the same with 
CLRPFM on those same files and remember duh there OPEN already so it won't 
work.In order not to Have USROPN  OPEN FILE1 OPEN FILE2 etc. I wonder if I 
could use a varible there.  If I have to I'll pull CLRPFM into another 
program and then call the one with the build of data and CPYTOIMPF.

Thanks 
Bill Hopkins 




"Jansen, Larry" <ljansen@xxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
08/21/2003 03:15 PM
Please respond to RPG programming on the AS400 / iSeries

 
        To:     "'RPG programming on the AS400 / iSeries'" 
<rpg400-l@xxxxxxxxxxxx>
        cc: 
        Subject:        RE: Open with USROPN Files


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
 
_______________________________________________
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.