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
