Re: IFS programming questions

[jeffw@xxxxxxxxxxxxxxxx]

I know there are other ways to do this, but we dump the contents of the 
directory into a file that we read in the program via a CL. Here is an 
example of the CL program we use to populate the file with the contents from 
a given directory:
DCL        VAR(&LSCOMMAND) TYPE(*CHAR) LEN(200)                 
DCL        VAR(&LIBRARY) TYPE(*CHAR) LEN(10) VALUE('QGPL')      
                                                                
CLRPFM     FILE(TESTC)                                          
                                                                
CRTPF      FILE(QGPL/TEMPMSDS) RCDLEN(200) +                    
             OPTION(*NOSOURCE *NOLIST)                          
                                                                
CHGVAR     VAR(&LSCOMMAND) VALUE('LS +                          
             /Reports/MSDSTEMP > +                            
             /QSYS.LIB/QGPL.LIB/TEMPMSDS.FILE/TEMPMSDS.M+       
             BR')                                               
                                                                
QSH        CMD(&LSCOMMAND)                                      
                                                                
CPYF       FROMFILE(TEMPMSDS) TOFILE(TESTC) +                   
             MBROPT(*ADD) FMTOPT(*NOCHK)             

Hope this helps. I am pretty sure Scott Klement has some things on his 
website about this.  
Jeff Williams           

On Tue, 17 Apr 2007 11:10:49 -0500, Steve Seroogy wrote
> I know the way in a CL or RPG IV to see if there is a file that 
> exists in a specified path.  But, I have a problem with a current 
> project I'm working on, I will not know the full name of the file. 
>  I will only know the first 4 characters and the extension.  Is 
> there a way to identify the existence of a file or the use of a wild 
> card (example: upld* or *.dat).
>
> Steve Seroogy
> Business Analyst
> Phone: (262) 544-4811 x2734
> Fax:  (262) 968-9372
>
> Generac Power System, Inc
> Hwy 59 and Hillside Road
> Waukesha, Wisconsin 53187
>
> -- 
> 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.


--
WOW! Homepage (http://www.wowway.com)