home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxcls.zip / SETICON.CMD < prev   
OS/2 REXX Batch file  |  1995-12-20  |  317b  |  10 lines
  1. /* REXX program to split JAS user list into workgroup subdirectories. */
  2. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. call SysLoadFuncs
  4.  
  5. PARSE ARG filename iconfile
  6. if filename = '' | iconfile = '' then
  7.    say 'USAGE: SETICON FileName IconFile'
  8. else
  9.    result = SysSetIcon( filename, iconfile )
  10.