Jousma, David wrote:
>I looked further at your output. For whatever reason, the response to that
>command isn’t coming back. I don’t understand why. I've tried other modify
>type commands like F CATALOG,ALLOCATED and that comes back just fine. Maybe
>you try that to make sure there isn’t something else different.
To all including Jorge Garcia, Time for me to jump in again.
Check if you have RACF access on the command and the STCs output. Try RACF
command ALTUSER <id> UAUDIT and try out that program. You will see all and
every RACF SMF records. Perhaps there is a surprise.
Try $T DEBUG,SECURITY=YES (and remember to turn it to SECURITY=NO after
testing!)
Perhaps JES2 is stopping you because of insufficient authority somewhere?
It could be there is a WHEN(CONSOLE(console-id)) somewhere in a RACF profile
stopping you because you're at a 'wrong' console?
I'm also confused, because we sometimes use a similar REXX program with your
way and also with the API method too as described by Paul Gilmartin and
J.O.Skip Robinson.
See a sample REXX program below. No QUEUE things and such.
HTH!
Groete / Greetings
Elardus Engelbrecht
/* REXX */
RC=ISFCALLS("ON")
ISFCONS = "PEST" /* EMCS CONSOLE NAME */
ISFDELAY ="10" /* WAIT TIME */
ADDRESS SDSF ISFEXEC " WHO "
DO IX=1 TO ISFRESP.0
SAY "ISFRESP."IX "IS:" ISFRESP.IX
END
ADDRESS SDSF ISFEXEC "'/D M=CPU' (WAIT VERBOSE)"
IF ISFMSG<>"" THEN
SAY ISFMSG
DO I2 = 1 TO ISFMSG2.0 /* LOOP THOUGH MESSAGES */
SAY ISFMSG2.I2
END
IF RC <= 8 THEN DO
SAY "NUMBER OF ULOG ROWS RETURNED" ISFULOG.0
IF ISFULOG.0 > 1 THEN DO
DO IX=1 TO ISFULOG.0 /* LOOP THROUGH ROWS */
SAY ISFULOG.IX
END
END
END
RC=ISFCALLS("OFF")
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
