I don't quite understand why You are coding as You do.
I would have coded something like:
. . .
Address SDSF "ISFEXEC '"cmd1"' (WAIT"
"ALLOC F(INDD) da("dsnname")"
"execio "isfulog.0" DISKW indd (STEM ISFULOG. FINIS"
"Free File(indd)"
. . .
OR (depending on what You want)
. . .
Address SDSF "ISFEXEC '"cmd1"' (WAIT"
i = 0
do j = 1 to isfulog.0
if some.condition.1
i=i+1;lines.0=i;lines.i= isfulog.j
end
if some.condition.2
"ALLOC F(INDD) da("dsnname")"
"execio "lines.0" DISKW indd (STEM LINES. FINIS"
"Free File(indd)"
i = 0
end
end
. . .
Regards,
Thomas Berg
__________________________________________
Thomas Berg Specialist IT-U SWEDBANK
> -----Ursprungligt meddelande-----
> Från: IBM Mainframe Discussion List
> [mailto:[email protected]] För Maria Brown
> Skickat: den 10 februari 2009 19:33
> Till: [email protected]
> Ämne: REXX and SDSF
>
> I am using ISFEXEC to issue a MVS console command and using
> the ISFULOG stem variable to retrieve the command responses.
> My problem is sometimes the stem variable contains the
> command responses and other times it does not. I also specify
> the WAIT option to ensure the command responses are available
> in the stem variable. What am I missing to ensure the stem
> variable will always contain the command responses?
>
> rc=isfcalls('ON')
>
> ISFDelay = 3
>
> cmd1 = '/d tcpip,'||procname||',n,vdpt'
>
> Address SDSF "ISFEXEC '"cmd1"' (WAIT"
>
> do i=1 to isfulog.0
> lines.x = isfulog.i
> "ALLOC F(INDD) da("dsnname")"
> "execio * DISKW indd (STEM LINES. FINIS"
> "Free File(indd)"
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access
> instructions, send email to [email protected] with the
> message: GET IBM-MAIN INFO Search the archives at
> http://bama.ua.edu/archives/ibm-main.html
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
