/* * AddAll.gvrexx * * Adds all .gvrexx files in specified dir to alias list * by Dan Fraser (Optic) * * usage: addall * */ if ~show('L',"rexxsupport.library") then do if ~addlib('rexxsupport.library',0,-30,0) then exit(10) end parse arg rexxdir if rexxdir="" then 'echo You must specify your rexx diectory!' else do 'display off' dirtext=showdir(rexxdir,'f') do i=1 to words(dirtext) if upper(right(word(dirtext,i),7))='.GVREXX' then 'alias 'left(word(dirtext,i),length(word(dirtext,i))-7)' rx 'word(dirtext,i) end 'display on' end