Try this REXX using the SDSF API:
zz=isfcalls('ON')
Address SDSF ISFSLASH "'D SMS,STORGRP(ALL)' (WAIT)"
cc=rc
zz=isfcalls('OFF')
if rc<>0 then say 'Console failed rc' cc
else do n=1 to isfulog.0
say '->'isfulog.n
end---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
