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.