home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxcls.zip / SETEA.CMD < prev    next >
OS/2 REXX Batch file  |  1995-12-20  |  443b  |  15 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 eaname eavalue
  6.  
  7. if filename = '' | eaname = '' | eavalue = '' then do
  8.         say 'USAGE: SETEA FileName EA_Name EA_Value'
  9.         return
  10. end
  11.  
  12.  
  13. typeinfo = 'DFFF00000100FDFF'x || d2c(length(eavalue)) || '00'x || eavalue
  14. call SysPutEA filename, eaname, typeinfo
  15.