home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / htmlkeys.zip / UpdateEA.erx < prev    next >
Text File  |  1997-08-28  |  306b  |  13 lines
  1. /*returns a string*/
  2. parse arg File EAtoSet EAValue
  3. CALL RxFuncAdd 'SysGetEA' , 'RexxUtil' , 'SysGetEA'
  4. CALL RxFuncAdd 'SysPutEA' , 'RexxUtil' , 'SysPutEA'
  5.  
  6. hob = length(eavalue)%256
  7. lob = length(eavalue)-hob
  8.  
  9. line ='fd'x||'ff'x||d2c(lob)||d2c(hob)||eavalue
  10. call sysPutEa File, EAtoSet, line
  11.  
  12.  
  13.