IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

IKJ56500I COMMAND ISREIRTI NOT FOUND


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sanil m

New User


Joined: 24 Aug 2007
Posts: 38
Location: chennai

PostPosted: Sat Apr 12, 2008 9:57 pm
Reply with quote

Whenever i run the program to display a panel, in the same session if I try to give SJ in the spool jobs, it gives me a message

IKJ56500I COMMAND ISREIRTI NOT FOUND

Could anyone please help me with this?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Sat Apr 12, 2008 10:14 pm
Reply with quote

it looks like You messed up Your concatenations
"ISREDRTI" and "ISEIRTI" are members of "ISP.SISPCLIB" library
and the library should be in the concatenation of the SYSPROC DD

before trying the SJ line command
issue a "TSO ISRDDN" and look at the SYSPROC DD
and/or in the command line type M ISREIRTI
it will tell if the member is found anywhere in Your allocated libraries
Back to top
View user's profile Send private message
PeD

Active User


Joined: 26 Nov 2005
Posts: 459
Location: Belgium

PostPosted: Sat Apr 12, 2008 10:16 pm
Reply with quote

http://groups.google.be/group/bit.listserv.ibm-main/browse_thread/thread/8bec37454b3570e1/90349866a9e89736?lnk=gst&q=ispf+edit+recovery+recursion#90349866a9e89736
Back to top
View user's profile Send private message
sanil m

New User


Joined: 24 Aug 2007
Posts: 38
Location: chennai

PostPosted: Sat Apr 12, 2008 10:40 pm
Reply with quote

what exactly can be done to avoid this


I have given in the code

Code:
"ALLOC FI(SYSPROC) DA('PROJ63.REXX.TEMP.SOURCE') SHR REUSE"
ADDRESS ISPEXEC                                               
"LIBDEF ISPPLIB DATASET ID('PROJ63.REXX.TEMP.SOURCE')"     


please advice
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Sat Apr 12, 2008 11:05 pm
Reply with quote

Quote:
"ALLOC FI(SYSPROC) DA('PROJ63.REXX.TEMP.SOURCE') SHR REUSE"


You just got rid of the mandatory sysproc libraries...
Back to top
View user's profile Send private message
sanil m

New User


Joined: 24 Aug 2007
Posts: 38
Location: chennai

PostPosted: Sat Apr 12, 2008 11:16 pm
Reply with quote

with the above mentioned code, i am getting the error when giving SJ in spool jobs.


IKJ56500I COMMAND ISREIRTI NOT FOUND


How can this be avoided?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Sat Apr 12, 2008 11:47 pm
Reply with quote

I already gave You the reason

have You heard about the ALTLIB command icon_cool.gif
Back to top
View user's profile Send private message
sanil m

New User


Joined: 24 Aug 2007
Posts: 38
Location: chennai

PostPosted: Sun Apr 13, 2008 1:10 pm
Reply with quote

@ enrico


could you please explain to me what to do with the ALTLIB command?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Sun Apr 13, 2008 1:21 pm
Reply with quote

instead of the alloc

Code:
Address TSO "ALTLIB ACT APPL(CLIST) DA('PROJ63.REXX.TEMP.SOURCE')"
.....
.....
.....
Address TSO "ALTLIB DEACT APPL(CLIST)"


for details
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4C550/1.8?SHELF=IKJ4BK50&DT=20040721160158
Back to top
View user's profile Send private message
sanil m

New User


Joined: 24 Aug 2007
Posts: 38
Location: chennai

PostPosted: Sun Apr 13, 2008 6:59 pm
Reply with quote

@enrico

i tried the code, but it is still giving the same message


IKJ56500I COMMAND ISREIRTI NOT FOUND


Before execution of the code

ISRDDN:



NEW,DEL > SYSIN ---------- Allocated to the terminal -------
OSCATL SHR,KEEP > SYSLBC SYS1.BRODCAST
NEW,DEL > SYSPRINT ---------- Allocated to the terminal -------
HPS380 SHR,KEEP > SYSPROC PSIPD.PERM.CLIST.FB
PSI402 SHR,KEEP > PSISP.PSI4.ISPF.CLIST
SYS309 SHR,KEEP > PSISP.INSYNC.V53.CLIB
SYS309 SHR,KEEP > PSISP.MQSERIES.MA10.CLIST
SYS304 SHR,KEEP > PSISP.CA11.R2V2.CAICLIB
SYS301 SHR,KEEP > PSISP.CA.CAICLIB
SYS302 SHR,KEEP > PSISP.JS710.CLIST
Z17RSA SHR,KEEP > ISP.SISPCLIB

NEW,DEL > SYSTERM ---------- Allocated to the terminal -------
SYS304 SHR,KEEP > SYS00034 PSISP.CMNZMF.CMN4.CUST.LOAD
SYS304 SHR,KEEP > PSISP.SERCOMC.CMN4.CUST.LOAD
SYS304 SHR,KEEP > PSISP.CMNZMF.CMN4.VEND.LOAD
SYS304 SHR,KEEP > PSISP.SERCOMC.CMN4.VEND.LOAD



After execution:



OSCATL SHR,KEEP > SYSLBC SYS1.BRODCAST
NEW,DEL > SYSPRINT ---------- Allocated to the terminal -------
NEW,DEL > SYSTERM ---------- Allocated to the terminal -------



SYSPROC DD name and the "ISP.SISPCLIB" library is not found.



Please suggest on this....
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Sun Apr 13, 2008 7:45 pm
Reply with quote

to understand what' s going on
You should describe a bit the overall flow of things

the script You are developing in what environment works ?
Back to top
View user's profile Send private message
sanil m

New User


Joined: 24 Aug 2007
Posts: 38
Location: chennai

PostPosted: Sun Apr 13, 2008 8:10 pm
Reply with quote

@ enrico


VERSION: LANG(REXX370) VERSION(3.48)


ENV(TSO)
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Sun Apr 13, 2008 8:24 pm
Reply with quote

That' s not too much...
I wanted a little explanation of the process flow

a rexx trace would be better icon_biggrin.gif
Back to top
View user's profile Send private message
sanil m

New User


Joined: 24 Aug 2007
Posts: 38
Location: chennai

PostPosted: Sun Apr 13, 2008 8:27 pm
Reply with quote

@ enrico


you want the detail code?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Sun Apr 13, 2008 8:36 pm
Reply with quote

yes ...
Unless You are able to understand why Your allocations disappear icon_biggrin.gif
a trace would be better
Back to top
View user's profile Send private message
sanil m

New User


Joined: 24 Aug 2007
Posts: 38
Location: chennai

PostPosted: Sun Apr 13, 2008 8:41 pm
Reply with quote

@enrico

here is the code


Code:
ADDRESS TSO                                                   
"FREE ALL"                                                   
ADDRESS TSO                                                   
"ALTLIB ACT APPL(CLIST) DA('PROJ63.TEMP.REXX.SOURCE')"       
ADDRESS ISPEXEC                                               
"LIBDEF ISPPLIB DATASET ID('PROJ63.TEMP.REXX.SOURCE')"       
MAIN_PROCESS:                                                 
DO FOREVER                                                   
  "DISPLAY PANEL(MAINPNL)"                                   
  SRCPDS = STRIP(SRCPDS)                                     
  IF PFK = 'PF03' THEN SIGNAL CLOSE                           
  IF PGM /= '' THEN LEAVE                                     
END                                                           
IF SYSDSN("'"SRCPDS"'") /= 'OK' THEN                         
   DO                                                         
     "ISPEXEC ADDPOP"                                         
     MSG1 = 'SOURCE PDS NOT FOUND'                           
     MSG2 = 'PRESS ENTER TO CONTINUE...'                 
     "DISPLAY PANEL(MSGPNL)"                             
     "ISPEXEC REMPOP"                                   
     SIGNAL MAIN_PROCESS                                 
   END                                                   
/* PROCESS THE MEMBERS IN THE JCLLIB  */                 
 ADDRESS TSO                                             
 OUTTV = OUTTRAP('VAR.')                                 
 "LISTDS '"SRCPDS"' MEMBERS"                             
 DO I = 7 TO VAR.0                                       
    VAR.I = STRIP(VAR.I)                                 
    SRCMEM = VAR.I                                       
    SRCPGM = SRCPDS||"("||SRCMEM||")"                   
 "ISPEXEC EDIT DATASET('"SRCPGM"') MACRO(JCLMAC)"       
 END                                                     
CLOSE:                                                   
ADDRESS TSO                                             
"ALTLIB DEACT APPL(CLIST)"     
 EXIT 0         
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Sun Apr 13, 2008 9:00 pm
Reply with quote

reread carefully Your code and You will see why Your allocations disappear icon_biggrin.gif
Back to top
View user's profile Send private message
sanil m

New User


Joined: 24 Aug 2007
Posts: 38
Location: chennai

PostPosted: Sun Apr 13, 2008 9:23 pm
Reply with quote

@ enrico

the dataset is actually 'PROJ63.REXX.TEMP.SOURCE'

it was a typo..


Could you please let us know why the allocations disappear
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Sun Apr 13, 2008 9:59 pm
Reply with quote

read the manual about the meaning of the free command
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Sun Apr 13, 2008 10:01 pm
Reply with quote

Hello,

Is this now working? Have you run the trace as Enrico suggested?

If this is still not working, i'd suggest you look very closely at your code - from the beginning. . . It is highly recommended to know exactly what each line of code will do when executed (rather than just grabbing some other code and cloning it).
Back to top
View user's profile Send private message
sanil m

New User


Joined: 24 Aug 2007
Posts: 38
Location: chennai

PostPosted: Fri Apr 18, 2008 11:09 pm
Reply with quote

hi all,

was able to solve the issue.

guess it was the 'free' command which was causing the SYSPROC DDname to be removed from the ISRDDN.


Thanx all of u for the quick response
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts RACF - Rebuild SETROPTS command which... All Other Mainframe Topics 3
No new posts How I Found a Bug in a FORTRAN Compiler All Other Mainframe Topics 4
No new posts Routing command Address SDSF to other... TSO/ISPF 2
No new posts DTL - how to define key with stacked ... TSO/ISPF 3
No new posts LTJ command CA Products 4
Search our Forums:

Back to Top