/* correction by Valery A.Eliseev */
IF LENGTH(pcKey) > {&xiBlockSize} THEN
DO:
set-size(mData) = LENGTH(pcKey).
put-string(mData, 1, LENGTH(pcKey)) = pcKey.
// Only valid for HMAC-SHA-1
// rRawDataSHA = SHA1-DIGEST(mData).
rRawDataSHA = MESSAGE-DIGEST('SHA-256', mData).
PUT-BYTES(mKey, 1) = rRawDataSHA.
END.