|
View previous topic :: View next topic
|
| Author |
Message |
ramp_senti
New User
Joined: 17 Mar 2006
Posts: 26
|
|
|
|
Hi,
I need to get the Spool data (S.ST) using a rex program. I searched for it and got the REXX pgm also , but when i run the REXX program i get the following error
13 *-* IsfRC = isfcalls( "ON" )
13 +++ IsfRC = isfcalls( "ON" )
IRX0043I Error running SYSOUTWR, line 13: Routine not found
***
From the explanation given in one of the material what i understood is isfcalls is the routine which establishes the connection between REXX and SDSF.
But when i run the pgm it says isfcalls routine not found.
Am i missing something here ..
Pls help ( I'm attaching the entire REXX code herewith)
| Code: |
/* REXX */
Trace r
JobPattern = "iss091*"
OwnerPattern = "*"
JobClass = ""
Destination = ""
CondCode = ""
DdName = "*"
PdsDsn = ""
Error = "NO"
MemberRule = "JOBNAME"
/* Load the SDSF environment and abort on failure */
IsfRC = isfcalls( "ON" )
if IsfRC <> 0 then do
say "RC" IsfRC "returned from isfcalls( ON )"
exit IsfRC
end
/* "Display" the ST panel to load the related variables */
isfprefix = JobPattern
isfowner = OwnerPattern
isffilter = "queue = print"
isfcols = "jname jobid ownerid queue jclass prtdest retcode"
address SDSF "isfexec st"
if RC <> 0 then do
say "RC" RC "returned from ISFEXEC ST"
call DisplayMessages
end
/* Process every line in the ST display */
StRows = isfrows
do i = 1 to StRows
/* Apply the other filters */
if JobClass <> "" & jclass.i <> JobClass then iterate
if Destination <> "" & prtdest.i <> Destination then iterate
if CondCode <> "" & retcode.i <> CondCode then iterate
/* The job is selected so go process its SYSOUT */
if MemberRule = "JOBID" then
call ProcessSysout jname.i, jobid.i, token.i, DdName
else
call ProcessSysout jname.i, jname.i, token.i, DdName
end
/* Unload the SDSF environment */
call isfcalls "OFF"
exit 0
DisplayMessages:
say "isfmsg: '"isfmsg"'"
say isfmsg2.0 "long messages in the isfmsg2 stem:"
do i = 1 to isfmsg2.0
say " '"isfmsg2.i"'"
end
|
Removed Attachment |
|
| Back to top |
|
 |
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
What is your z/Os version?
O. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Please DO NOT post attachments as many shops do not allow these to be viewed.
This reduces the number of people that may help you
This topic has been discussed many times here, try a search for SDSF and see how many results you get. |
|
| Back to top |
|
|
ramp_senti
New User
Joined: 17 Mar 2006
Posts: 26
|
|
|
|
Z/os Version is 1.07
.. I tried serching the forum that's where i got the code but i need to know if i have to set something to run the code as it says routine not found |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| I'd hazard a guess that you are trying to use SDSF-REXX which isn't available until 1.9 |
|
| Back to top |
|
|
ramp_senti
New User
Joined: 17 Mar 2006
Posts: 26
|
|
|
|
| Thanks !!! |
|
| Back to top |
|
|
Appu
New User
Joined: 26 Apr 2010
Posts: 73
Location: India
|
|
|
|
Hello,
I am also getting the same error.
'ISFCALLS routine not found'. My Z/OS version is Z/Os 1.10 and my system uses JES2. Below is the code snippet which I am trying to run.
rcode = ISFCALLS('ON')
"alloc f(ISFTRACE) da('smith.sdsf.trace') shr"
address SDSF "ISFEXEC '/p stc1'"
"free f(ISFTRACE)"
call ISFCALLS('OFF')
return rcode |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
| Back to top |
|
|
Appu
New User
Joined: 26 Apr 2010
Posts: 73
Location: India
|
|
|
|
Hello ,
Thanks for the response. Is there any way by which I can know whether my installation is compatible to run the SDSF REXX APIs. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| Yes, ask your site admin people, as they and they alone will know the set up. |
|
| Back to top |
|
|
|
|
