home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / mr2i162a.zip / REMFLDRS.CMD < prev    next >
OS/2 REXX Batch file  |  1998-12-01  |  871b  |  32 lines
  1. /* ============================================================= */
  2. /* ============================================================= */
  3. call RxFuncAdd SysLoadFuncs,RexxUtil,SysLoadFuncs
  4. call SysLoadFuncs
  5.  
  6. parse arg accountName
  7. delim  = d2c(1)
  8.  
  9. if length(accountName) < 1 then
  10.     accountName = 'mail'
  11.  
  12. folderIndex = accountName'\folders.ndx'
  13.  
  14. do while lines(folderIndex) > 0 
  15.    folderLine = linein(folderIndex)
  16.    parse value folderLine with folderName''tabName''dir''rest
  17. /*      say '*('folderName')'delim'('tabName')'delim'('dir')'delim'('rest')' */
  18.    rc = charout(,' 'folderName' ('dir'): ')
  19.  
  20.     eainfo = "DFFF00000100FDFF"x || d2c(length(folderLine))||"00"x||folderLine
  21.     fname = accountName'\'dir'\folder.ndx'   
  22.     rc = SysPutEA(fname, "MR2I.FOLDERINFO", eainfo)
  23.     if rc \= 0 then
  24.         say 'Error 'rc' encountered.'
  25.     else
  26.         say "set!"
  27.  
  28. end
  29.  
  30.  
  31.  
  32.