View previous topic :: View next topic
|
Author |
Message |
sanil m
New User
Joined: 24 Aug 2007 Posts: 38 Location: chennai
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
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 |
|
|
PeD
Active User
Joined: 26 Nov 2005 Posts: 459 Location: Belgium
|
|
Back to top |
|
|
sanil m
New User
Joined: 24 Aug 2007 Posts: 38 Location: chennai
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
Quote: |
"ALLOC FI(SYSPROC) DA('PROJ63.REXX.TEMP.SOURCE') SHR REUSE" |
You just got rid of the mandatory sysproc libraries... |
|
Back to top |
|
|
sanil m
New User
Joined: 24 Aug 2007 Posts: 38 Location: chennai
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
I already gave You the reason
have You heard about the ALTLIB command |
|
Back to top |
|
|
sanil m
New User
Joined: 24 Aug 2007 Posts: 38 Location: chennai
|
|
|
|
@ enrico
could you please explain to me what to do with the ALTLIB command? |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
Back to top |
|
|
sanil m
New User
Joined: 24 Aug 2007 Posts: 38 Location: chennai
|
|
|
|
@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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
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 |
|
|
sanil m
New User
Joined: 24 Aug 2007 Posts: 38 Location: chennai
|
|
|
|
@ enrico
VERSION: LANG(REXX370) VERSION(3.48)
ENV(TSO) |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
That' s not too much...
I wanted a little explanation of the process flow
a rexx trace would be better |
|
Back to top |
|
|
sanil m
New User
Joined: 24 Aug 2007 Posts: 38 Location: chennai
|
|
|
|
@ enrico
you want the detail code? |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
yes ...
Unless You are able to understand why Your allocations disappear
a trace would be better |
|
Back to top |
|
|
sanil m
New User
Joined: 24 Aug 2007 Posts: 38 Location: chennai
|
|
|
|
@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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
reread carefully Your code and You will see why Your allocations disappear |
|
Back to top |
|
|
sanil m
New User
Joined: 24 Aug 2007 Posts: 38 Location: chennai
|
|
|
|
@ 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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
read the manual about the meaning of the free command |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
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 |
|
|
sanil m
New User
Joined: 24 Aug 2007 Posts: 38 Location: chennai
|
|
|
|
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 |
|
|
|