CLIST External Function syntax is implemented as a SYSX External CLIST function, by using the standard IKJCT44B exit of TSO.
Syntax
SET clistvar = &STR(&SYSXfunction(parameter))
Example
PROC 0
SET INIT0 = &STR(&SYSXINIT)
WRITE INITIALIZATION = &INIT0
SET SETLC1 = &STR(&SYSXSETOLOC(%%MYVAR = %%$TIME))
WRITE SETLC1 = &SETLC1
SET TERM0 = &STR(&SYSXTERM)
WRITE TERMINATION = &TERM0
EXIT
Parent Topic |