Howdy all.........the following REXX cmd was written so that I could SQSETP 
an entire directory of squish based message areas.  Just thought I'd pass it 
along just in case anyone else could use it. :-)
Contents of SQSETDR.CMD:
/* Allows all message base areas in a squish based message directory to be 
set with sqsetp  */
call rxfuncadd 'sysloadfuncs','rexxutil','sysloadfuncs' 
call sysloadfuncs
PARSE UPPER ARG ArgumentString
do aa = 1 to 2
PARSE UPPER VAR ArgumentString Argument1 Argument2 Argument3 Argument4 
Argument5
end
/* if Argument1 = ''|Argument2 = ''|Argument3 = ''|Argument4 = ''|Argument5 = 
'' then do */
if Argument5 = '' then do 
 CALL Help
 end
SqsetPartition = SUBSTR(Argument1, 1, 2)
SqMsgPartition = SUBSTR(Argument2, 1, 2)
'cls'
call SysFileTree Argument2||'\*.SQD', 'file', 'FO'
   do i=1 to file.0
     FileNameStart = LASTPOS('\', file.i) + 1
     FileName = SUBSTR(file.i, FileNameStart)
     '@echo off'
     SqsetPartition
     'cd '||Argument1
     say
     say FileName
     "sqsetp "||Argument2||"\"||FileName||' '||Argument3||' '||Argument4||' 
'||Argument5
say
   end
'c:'
call rxfuncdrop 'sysloadfuncs'
exit
Help:
do t = 1 to 2
  say
 end
say 'SqSetDr syntax:'
say
say 'sqsetdr     <# 
Days>'
call rxfuncdrop 'sysloadfuncs'
exit
--- Sqed/32 1.14/r15155
---------------