/* hexbin - convert two hex digits to binary byte value */
       hexbin: proc(s) returns(fixed(15));
       dcl
           s        char(8) varying,
           v        fixed(15),
           i        fixed(7);

       %replace
           HEXDIGITS  by '123456789ABCDEF';

       v = 0;
           do i = 1 to length(s);
           v = v * 16 + index(HEXDIGITS, substr(s,i,1));
           end;
       return(v);
       end hexbin;