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')