Stefan3737
unread,Aug 25, 2016, 1:26:33 AM8/25/16You do not have permission to delete messages in this group
Sign in to report message
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
to
Hello & thanks for your answer!
The code:
data = 'This is just a message for internal use.'
x = d2x(length(data))
say x
text_length = x
/* Text_length is one of a few parameters used to call CSNBOWH from ICSF to
calculate MD5 */
address linkpgm 'CSNBOWH',
'ex_rc',
'ex_rs',
'exit_data_length',
'exit_data',
'rule_array_count',
'rule_array',
'text_length',
'text',
'chain_vector_len',
'chaining_vector',
'hash_length',
'hash'
************************************
Result:
Running CSNBOWH to calculate MD5
Data = This is just a message for internal use.
Data length = 40
text_length 28
DATATYPE 28
CSNBOWH FAILed : RC = 00000008
RS = 00002AF8
************************************************