EQU ALGORITHM$SHA1 TO "SHA1"
EQU DATALOC$STRING TO 1
EQU DATALOC$FILE TO 2
RESULT = ""
ERRCODE = DIGEST(ALGORITHM$SHA1, TEXT, DATALOC$STRING, RESULT)
RESULT = UPCASE(OCONV(RESULT, "MX"))

rex
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

Reply via email to