7.26 GET_SYSKEY_LENGTH
Returns the length of SYSKEY
for the current record.
Syntax
For C:
include "usrdecs" short syskeylen, short source_or_target; short result; result = GET_SYSKEY_LENGTH(&syskey_len, source_or_target);
For TAL:
?source usrdect int result; int .ext syskeylen; int source_or_target; result := GET_SYSKEY_LENGTH (syskeylen, source_or_target) ;
For COBOL:
?CONSULT =EXTRACT (or =REPLICAT) 01 result PIC S9(4) COMP. 01 syskeylen PIC S9(4) COMP. 01 source_or_target PIC S9(4) COMP. ENTER C "GET_SYSKEY_LENGTH" using syskeylen, source-or-target giving result.