View previous topic :: View next topic
|
Author |
Message |
rmn
New User
Joined: 05 Sep 2007 Posts: 6 Location: karnataka
|
|
|
|
Hi All...
I have a created a REXX Tool which extracts data from the Version Control Tool (Changeman) and saves in the user specified location.
My tool works as below
1) It compares the updated component in the changeman with the Baselined version in production using the program SERCMPAR. Then the compared result is stored in the output dataset.
2) It also directly writes the new components in changeman to the output dataset.
3) Finally, it will download the output dataset to the location specfied by the user.
Problem faced
When i run the tool for the first time after logging into session, i am getting the following error in the compare program.But from the second time the tool works fine.
Code: |
User abend code 0005, reason code 00000001.
Abend in host command SELECT or address environment routine ISPEXEC.
User abend code 0005, reason code 00000001.
Abend in host command ISPEXEC or address environment routine TSO. |
Code where i am facing issue is
Code: |
ADDRESS 'ISPEXEC'
SAY 'RETURN CODE FROM ADDRESS = 'RC
"SELECT PGM(SERCMPAR)"
SAY 'RETURN CODE FROM COMPARE = 'RC
O = OUTTRAP(OFF)
ADDRESS 'MVS'
"EXECIO" TRAP2.0 "DISKW SYSPRINT (FINIS STEM TRAP2." |
|
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2593 Location: Silicon Valley
|
|
|
|
Quote: |
When i run the tool for the first time after logging into session |
Where are you running it from? How do you invoke it? |
|
Back to top |
|
|
rmn
New User
Joined: 05 Sep 2007 Posts: 6 Location: karnataka
|
|
|
|
I am directly submitting using the Line Command "EX" . |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2593 Location: Silicon Valley
|
|
|
|
Repeating:
Where are you running it from? |
|
Back to top |
|
|
rmn
New User
Joined: 05 Sep 2007 Posts: 6 Location: karnataka
|
|
|
|
Can you please explain in a descriptive manner..... |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2593 Location: Silicon Valley
|
|
|
|
Actually, I am asking you to explain in a descriptive manner.....
When you logon, what menu do you see, what do you select, what is the panelid?
What is complete syntax of the EX command that you issue?
Are there any messages in syslog?
What does program SERCMPAR do and can you call it without a rexx program? Does it behave in the same manner. |
|
Back to top |
|
|
rmn
New User
Joined: 05 Sep 2007 Posts: 6 Location: karnataka
|
|
|
|
Actually I not running the REXX program thru any job but I am directly submitting the program.
The rexx program is present in a PDS member as shown below and using the EXECUTE COMMAND (EX) it will be executed.
Code: |
VIEW USERID.TEST.REXX Row 00001 of 00003
Command ===> Scroll ===> CSR
Name Prompt Size Created Changed ID
_________ JCLPARM 2 2008/11/11 2009/04/10 04:06:32 USERID
_________ PAN1 22 2008/10/14 2009/08/12 00:34:15 USERID
__EX_____ REXXPROG *Viewed 345 2008/10/08 2009/08/12 00:33:49 USERID |
Once it is executed, PANEL is created which asks for the package number in changeman.
Panel Code as below…
Code: |
"ISPEXEC LIBDEF ISPPLIB DATASET ID('USERID.TEST.REXX')"
"ISPEXEC DISPLAY PANEL(PAN1)" |
/*PANEL WHICH ASKS FOR PACKAGE NUMBER*/
The program SERCMPAR is a batch version of the Changeman comparison. It compares the components in the specified package (Thru PANEL) with the baseline version. The SERCMPAR can be called without REXX program also and it works fine.
My problem is ..
Whenever I login in to the mainframe for the first time and try to execute the REXX program(which calls program SERCMPAR) in the PDS as shown above …
I am getting the following error. But for the second time it works as expected.
Code: |
User abend code 0005, reason code 00000001.
Abend in host command SELECT or address environment routine ISPEXEC.
User abend code 0005, reason code 00000001.
Abend in host command ISPEXEC or address environment routine TSO. |
|
|
Back to top |
|
|
rmn
New User
Joined: 05 Sep 2007 Posts: 6 Location: karnataka
|
|
|
|
Hi Pedro.....
I tried to execute my REXX program which is calling SERCMPAR thru JCL but it didn't worked ...
Code: |
//PS10 EXEC PGM=IKJEFT1B,PARM=REXXPROG
//SYSTSPRT DD SYSOUT=*
//SYSEXEC DD DSN=USERID.TEST.REXXBKP,DISP=SHR
//SYSTSIN DD DUMMY
/*
//* |
Even it is not working for the Second time also...
Please find the Spool details ..
JESMSGLG:
Code: |
IEA995I SYMPTOM DUMP OUTPUT 350
SYSTEM COMPLETION CODE=013 REASON CODE=00000018
TIME=06.40.40 SEQ=03688 CPU=0000 ASID=0321
PSW AT TIME OF ERROR 075C1000 80E28242 ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN |
JESYSMSG:
Code: |
IGD17364I DATA SET NBDN3RH.TEST.#001502.OUTPUT
NOT AUTHORIZED TO EXPIRATION DATE SPECIFIED
EXPIRATION DATE RESET TO MAXIMUM ALLOWED 0.0 |
SYSPRINT:
Code: |
BASELINE MEMBER(MEM1) PAKAGE MEMBER(MEM1)
RETURN CODE FROM ADDRESS = 0
258 *-* "SELECT PGM(SERCMPAR)"
+++ RC(-3) +++
RETURN CODE FROM COMPARE = -3
DATA SET USERID.TEST.#001502.OUTPUT NOT ALLOCATED, TOO MANY DATA SETS+
MAXIMUM NUMBER OF DATA SET ALLOCATIONS ALLOWED BY YOUR SESSION HAS BEEN |
Where USERID.TEST.#001502.OUTPUT is the output datset where I will write the comparision results and download the same.
Hope this gives you the information u asked ....
Thanks in advance................ |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2593 Location: Silicon Valley
|
|
|
|
Abend 013 says that message IEC141I is also displayed. Look for it in your syslog.
Look in the messages and codes manual for messaqe IEC141I along with return code 18. |
|
Back to top |
|
|
rmn
New User
Joined: 05 Sep 2007 Posts: 6 Location: karnataka
|
|
|
|
rmn wrote: |
Hi Pedro.....
I tried to execute my REXX program which is calling SERCMPAR thru JCL but it didn't worked ...
Code: |
//PS10 EXEC PGM=IKJEFT1B,PARM=REXXPROG
//SYSTSPRT DD SYSOUT=*
//SYSEXEC DD DSN=USERID.TEST.REXXBKP,DISP=SHR
//SYSTSIN DD DUMMY
/*
//* |
Even it is not working for the Second time also...
Please find the Spool details ..
JESMSGLG:
Code: |
IEA995I SYMPTOM DUMP OUTPUT 350
SYSTEM COMPLETION CODE=013 REASON CODE=00000018
TIME=06.40.40 SEQ=03688 CPU=0000 ASID=0321
PSW AT TIME OF ERROR 075C1000 80E28242 ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN |
JESYSMSG:
Code: |
IGD17364I DATA SET USERID.TEST.#001502.OUTPUT
NOT AUTHORIZED TO EXPIRATION DATE SPECIFIED
EXPIRATION DATE RESET TO MAXIMUM ALLOWED 0.0 |
SYSPRINT:
Code: |
BASELINE MEMBER(MEM1) PAKAGE MEMBER(MEM1)
RETURN CODE FROM ADDRESS = 0
258 *-* "SELECT PGM(SERCMPAR)"
+++ RC(-3) +++
RETURN CODE FROM COMPARE = -3
DATA SET USERID.TEST.#001502.OUTPUT NOT ALLOCATED, TOO MANY DATA SETS+
MAXIMUM NUMBER OF DATA SET ALLOCATIONS ALLOWED BY YOUR SESSION HAS BEEN |
Where USERID.TEST.#001502.OUTPUT is the output datset where I will write the comparision results and download the same.
Hope this gives you the information u asked ....
Thanks in advance................ |
|
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8796 Location: Welsh Wales
|
|
|
|
Pedro wrote: |
Abend 013 says that message IEC141I is also displayed. Look for it in your syslog.
Look in the messages and codes manual for messaqe IEC141I along with return code 18. |
Did you do as suggested by Pedro and look up the IEC141I message for RC18.
It is no good you just reposting your previous post, you have to learn to use the manuals for yourself. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2593 Location: Silicon Valley
|
|
|
|
Abend 013 says that message IEC141I is also displayed. Look for it in your syslog.
Look in the messages and codes manual for messaqe IEC141I along with return code 18. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2593 Location: Silicon Valley
|
|
|
|
Your JCL did not have a SYSPRINT dd statement, and yet you showed us the contents. Where did it come from?
In your REXXPROG, add:
Code: |
Address TSO 'PROFILE MSGID' |
rerun your program and then look in your SYSPRINT / SYSTSPRT files. With the message ids, look up the messages. |
|
Back to top |
|
|
|