Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

IKJ56500I COMMAND ISREIRTI NOT FOUND
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
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    Post subject: IKJ56500I COMMAND ISREIRTI NOT FOUND
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Sat Apr 12, 2008 10:14 pm    Post subject: Reply to: IKJ56500I COMMAND ISREIRTI NOT FOUND
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: 456
Location: Belgium

PostPosted: Sat Apr 12, 2008 10:16 pm    Post subject:
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Sat Apr 12, 2008 11:05 pm    Post subject: Reply to: IKJ56500I COMMAND ISREIRTI NOT FOUND
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Sat Apr 12, 2008 11:47 pm    Post subject: Reply to: IKJ56500I COMMAND ISREIRTI NOT FOUND
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Sun Apr 13, 2008 1:21 pm    Post subject: Reply to: IKJ56500I COMMAND ISREIRTI NOT FOUND
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Sun Apr 13, 2008 7:45 pm    Post subject: Reply to: IKJ56500I COMMAND ISREIRTI NOT FOUND
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    Post subject:
Reply with quote

@ enrico


VERSION: LANG(REXX370) VERSION(3.48)


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

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Sun Apr 13, 2008 8:24 pm    Post subject: Reply to: IKJ56500I COMMAND ISREIRTI NOT FOUND
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    Post subject:
Reply with quote

@ enrico


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

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Sun Apr 13, 2008 8:36 pm    Post subject: Reply to: IKJ56500I COMMAND ISREIRTI NOT FOUND
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Sun Apr 13, 2008 9:00 pm    Post subject: Reply to: IKJ56500I COMMAND ISREIRTI NOT FOUND
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Sun Apr 13, 2008 9:59 pm    Post subject: Reply to: IKJ56500I COMMAND ISREIRTI NOT FOUND
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

Site Director


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

PostPosted: Sun Apr 13, 2008 10:01 pm    Post subject:
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
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
No new posts SDSF Command Avtrix CLIST & REXX 4 Fri Sep 30, 2016 11:13 am
No new posts How to find a CICS resource used in C... Arunkumar Chandrasekaran CICS 8 Thu Sep 29, 2016 1:45 pm
No new posts COMPARE command sivatechdrive TSO/ISPF 7 Fri Sep 16, 2016 4:31 pm
No new posts I am unable to use SWAPBAR ON command... mrsidhu12 TSO/ISPF 3 Thu Sep 01, 2016 1:10 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us