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

Rexx Tool using SERCMPAR


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
rmn

New User


Joined: 05 Sep 2007
Posts: 6
Location: karnataka

PostPosted: Fri Oct 09, 2009 5:08 pm
Reply with quote

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
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Fri Oct 09, 2009 7:26 pm
Reply with quote

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
View user's profile Send private message
rmn

New User


Joined: 05 Sep 2007
Posts: 6
Location: karnataka

PostPosted: Wed Oct 14, 2009 4:37 pm
Reply with quote

I am directly submitting using the Line Command "EX" .
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Wed Oct 14, 2009 9:13 pm
Reply with quote

Repeating:

Where are you running it from?
Back to top
View user's profile Send private message
rmn

New User


Joined: 05 Sep 2007
Posts: 6
Location: karnataka

PostPosted: Fri Oct 23, 2009 2:50 pm
Reply with quote

Can you please explain in a descriptive manner.....
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Fri Oct 23, 2009 7:43 pm
Reply with quote

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
View user's profile Send private message
rmn

New User


Joined: 05 Sep 2007
Posts: 6
Location: karnataka

PostPosted: Mon Oct 26, 2009 4:59 pm
Reply with quote

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
View user's profile Send private message
rmn

New User


Joined: 05 Sep 2007
Posts: 6
Location: karnataka

PostPosted: Mon Oct 26, 2009 5:34 pm
Reply with quote

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... icon_sad.gif
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
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Mon Oct 26, 2009 7:33 pm
Reply with quote

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
View user's profile Send private message
rmn

New User


Joined: 05 Sep 2007
Posts: 6
Location: karnataka

PostPosted: Thu Dec 10, 2009 5:32 pm
Reply with quote

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... icon_sad.gif
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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu Dec 10, 2009 6:41 pm
Reply with quote

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
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Thu Dec 10, 2009 10:26 pm
Reply with quote

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
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Thu Dec 10, 2009 10:40 pm
Reply with quote

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
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 -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
Search our Forums:

Back to Top