/* PREFIX.CMD to put a prefix on a filename. */

parse arg pFix

call rxFuncAdd 'sysloadfuncs','rexxutil','sysloadfuncs'
call SysLoadFuncs
Say 'Starting . . .'
cDir = Directory()
cDir = strip(cDir)
say 'CDIR =' cDir

if length(cDir) = 3 then chkDir = cDir || '*.*'
else chkDir = cdir || '\*.*'

say 'ChkDir =' chkDir

rc = sysfiletree(chkDir, 'FILE', 'FO')

say 'File.0 =' file.0

do i = 1 to file.0
  t = length(cDir)
  if t = 3 then t = t - 1
  t = t + 2
  fName = substr(file.i, t)
  pct =  ( i / file.0 ) * 100
  say fName '==>' pFix || fname '==>' right(i,4) 'of' file.0 format(pct,3,2)'%'

  'ren' fName pFix || fname 

end



exit