Issue system commands using ISFSLASH
/* REXX */
rc=isfcalls('ON')
mycmd.0=3
mycmd.1="$DSPL"
mycmd.2="$D JOBQ,JM=S*"
mycmd.3="$D I"
Address SDSF ISFSLASH "("mycmd.") (WAIT)"
/* List any error messages */
Say "isfmsg is:" isfmsg
Say "isfmsg2.0 is:" isfmsg2.0
if datatype(isfmsg2.0) = "NUM" then
do ix=1 to isfmsg2.0
Say "isfmsg2."ix "is:" isfmsg2.ix
end
rc=isfcalls('OFF')