Dana:
Are you running under tso or rexx cgi ?
Sent from my iPad
Scott Ford
Senior Systems Engineer
www.identityforge.com
On Mar 1, 2012, at 8:24 AM, Dana Mitchell <mitchd...@gmail.com> wrote:
> 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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
