home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / htmlks10.zip / UpdateEA.erx < prev    next >
Text File  |  1997-09-09  |  346b  |  14 lines
  1. /*returns a string*/
  2. parse arg theArgs
  3. parse value theArgs with 'F_FILE='File' EL_NAME='EAtoSet' EL_VAL='EAValue'_END'
  4. CALL RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  5. CALL SysLoadFuncs
  6.  
  7. hob = length(eavalue)%256
  8. lob = length(eavalue)-hob
  9.  
  10. line ='fd'x||'ff'x||d2c(lob)||d2c(hob)||eavalue
  11. call sysPutEa File, EAtoSet, line
  12.  
  13.  
  14.