home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / ADDEA.ZIP / MAKEWPSA.CMD < prev    next >
OS/2 REXX Batch file  |  1992-03-27  |  338b  |  13 lines
  1. /* MAKEWPSA - Make a WorkPlace Shell File Association */
  2. parse arg assoc
  3. if assoc='' then do
  4.   say 'Syntax:'
  5.   say 'MAKEWPSA <association name>'
  6.   say 'Example: MAKEWPSA CUA Draw File'
  7.   end
  8. else do
  9.   call RxFuncAdd 'SysIni', 'RexxUtil', 'SysIni'
  10.   rez=SysIni('USER','PMWP_ASSOC_TYPE',assoc,' ')
  11.   say 'returncode='rez
  12.   end
  13.