Scott,

Sorry I didn't see this post until after some of the others.  As I said, I have 
the userid problem pretty much explained.   As it turns out SDSF REXX forces 
only TSO JCL authority for putposes of assigning groups in ISFPRMxx.  It also 
pluggs REXX as the logon proc, so I can key off of that to assign to the proper 
group.

Now my problem is RC 1 from EXECIO trying to process the last sysout dataset 
from a selected job.  I do an ISFEXEC DA,  select the job,  do a 'SA' to 
allocate all the datasets,  step through each one and free it until the last 
one.  Then I try EXECIO to read the last one.  Each of the FREE commands gets 
RC1 as well as the EXECIO command.  It works just fine under IRXJCL in batch.  
Here's my code,  it's just a POC at this point:

/* REXX */                                                                      
 
                                                                                
 
Say "Content-Type: text/x-ssi-html"                                             
 
Say ""                                                                          
 
                                                                                
 
LB = "<br>"                                                                     
 
                                                                                
 
rc=isfcalls("ON")                                                               
 
                                                                                
 
isfsysname="TE02"                                                               
 
isfprefix="**"                                                                  
 
isfowner="*"                                                                    
 
                                                                                
 
ADDRESS SDSF "ISFEXEC DA"                                                       
 
if rc <> 0 Then say "RC from DA is" rc LB                                       
 
                                                                                
 
 say "Number of jnames" jname.0 LB                                              
 
                                                                                
 
do ix=1 to jname.0                                                              
 
  if jname.ix = "ALCSPARL" Then Do                                              
 
                                                                                
 
  Address SDSF "ISFACT DA TOKEN('"TOKEN.ix"') PARM(NP SA)"                      
 
                                                                                
 
  if rc <> 0 then Say 'RC from ISFACT DA is' rc LB                              
 
                                                                                
 
  do id = 1 to value(isfddname".0")                                             
 
                                                                                
 
     if id = isfddname.0 Then Do                                                
 
         say "selecting file" id "DDname" isfddname.id "DSname" isfdsname.id LB 
 
                                                                                
 
         "EXECIO * DISKR" isfddname.id "(STEM line. FINIS"                      
 
         if rc <> 0 Then Say "RC from EXECIO" rc LB                             
 
         say "lines" line.0 LB                                                  
 
         Do il = line.0-10 to line.0                                            
 
            say left(line.il,70) LB                                             
 
            End                                                                 
 
          End                                                                   
 
     Else Do                                                                    
 
             "FREE FI("isfddname.id")"                                          
 
             If rc <> 0 Then Say "RC from FREE" rc LB                           
 
             End                                                                
 
     End                                                                        
 
   End               
End                  
                     
rc=isfcalls("OFF")   
                     
Return               
 

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN

Reply via email to