home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / hextext.lx < prev    next >
Text File  |  1998-02-24  |  351b  |  19 lines
  1. /* hextext.lx - Show the current element: text and hexadecimal values. */
  2.  
  3. 'EXTRACT content'
  4. if content = '' then
  5.   exit
  6. 'MSG' content
  7. high=''
  8. low=''
  9. Options Size high 2500
  10. Options Size low  2500
  11. do i=1 to length(content)
  12.   parse value C2X(substr(content,i,1)) with a 2 b
  13.   high=high||a
  14.   low =low||b
  15. end
  16. 'MSG' high
  17. 'MSG' low
  18. 'MSG'
  19.