home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxcls.zip / DSPEA.CMD < prev    next >
OS/2 REXX Batch file  |  1995-12-20  |  493b  |  18 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 rest
  6. if filename = '' then do
  7.         say 'USAGE: DSPEA FileName EAname_1 [EAName_2] [EAName_n]'
  8.         return
  9. end
  10.  
  11. do forever
  12.    parse value rest with queryEA rest
  13.    if ( queryEA == '' ) then exit
  14.    if SysGetEA( filename, queryEA, "storage") = 0 then do
  15.       say queryEA'='substr(storage,3)
  16.    end
  17. end
  18.