************************************************
    Procedure DecToHex
    Lparameters lcBuff
    Local  nDecimal, nDigits, lcHexBUFF
    lcHexBUFF = []
    nDigits =  2 
    For i=  1  To Len(lcBuff)
        nDecimal = Asc(Substr(lcBuff,i, 1 ))
        lcHexBUFF=lcHexBUFF+' '+Right(Transform(nDecimal, "@0"), Iif(nDigits <=  8 , nDigits,  8 ))
    Endfor
    Return lcHexBUFF
    Endproc

void StrToHex(ParamBlk FAR *parm)
{
BYTE *szBuff;
char *szHex;
char tmpBuff[ 5 ];
Value val={ 0 };
_Load(&parm->p[ 0 ].loc, &val);
int len_str = val.ev_length;               
szBuff =(BYTE*)xmalloc(len_str);
szHex =(char*)xmalloc(len_str* 5 );
memmove(szBuff,_HandToPtr(val.ev_handle),len_str);
 _FreeHand(val.ev_handle);
szBuff[len_str]='\0';
for(int i= 0 ;i<len_str;i++)
{
sprintf(tmpBuff," ox%X",szBuff[i]);
strncat(szHex,tmpBuff, 5 );
}
 _RetChar(szHex);
 xfree(szBuff);
 xfree(szHex);
}