HERBERT BOUKNIGHT had something deep to write about Help with REXX
program


HB> I need some help from you REXX programmers out there.  I
HB> need a REXX script to do the following:

I'll try not to do the whole thing for you, but I will show you most
of the critical parts you'll need.  You ought to look at the online
REXX reference, especially the sections on REXX Utility Functions
(REXXUtil), Keywords and Functions.

There are two easy ways to find out if a file exists.
 
/* A REXX script must begin with '/' and '*' as the first characters
of the first line You'll need to load all or certain parts of the
REXXUtil functions: */
 call RxFuncAdd "SysLoadFuncs", "REXXUtil",
"SysLoadFuncs"
 call SysLoadFuncs
 /*     or    */
 call rxfuncadd "sysfiletree", "REXXUtil",
"sysfiletree"

 patha="C:\DIR_A\"
 pathb="C:\DIR_B\"
 call sysfiletree patha'*', 'files', 'FO' /* read up on sysfiletree to learn more */
 for n=1 to files.0   /* this is the count of files found, if any */
 filename=filespec('name',files.n)
   if ''=stream(pathb||filename,'C','query exists') then 'copy 'patha||filename pathb
   else do; /* do some things because filename already exists */
     do i=1 to 999;  /* this is the hard way, looking 1 file at a time */
     if ''=stream(pathb||filename'.'right(i,3,'0'),'c','Query Exists') then do;
        'copy 'patha||filename pathb||filename'.'right(i,3,'0')
        leave
     end
   end
 end
 /* note: the 'copy '... becomes an instruction to CMD.EXE */
 /* '{at}copy '... would work too */

You can use the following in place of the hard way:
 call sysfiletree bpath||filename'.*', 'file', 'FO'    /* look at many
files at once */
 i=file.0     /* i=number of matches to DIR_B\filename.* */
 i=file.i    /* i=last match, for HPFS, also largest #, doesn't work for FAT */
 'copy' patha||filename pathb||filename'.'right(i+1,3,'0')

The indentation is not necessary, but makes reading, and matching 'DO'
to 'END' easier.  REXX is rarely picky about cAsE.  || is a way to
join strings, but simply abuting (filename'.'right...) also works, as
does separating two strings by a space ('copy' patha)  For more REXX
info, see the online reference, look for REXXTUT2 on your favorite
OS/2 BBS,  ask more questions, or look for a book on REXX.

 * KWQ/2 1.2g * Software Upgrade Installed: Press Your Luck to Continue


--- QScan v1.12b / 01-0093