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
 

 

Is it possible to use REXX to call a CLIST ?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
chaoj

Active User


Joined: 03 Jun 2010
Posts: 103
Location: Dalian

PostPosted: Fri May 31, 2013 7:33 am    Post subject: Is it possible to use REXX to call a CLIST ?
Reply with quote

There's a code in my production system , it was old and no one knows its original design , a REXX PGM call a CLIST ,

But When I test it in test system , not work .

This is the REXX call command
Code:

address ispexec "SELECT CMD( CISEXE03 PNAME( "panel" )",   
                 "LOCLANG(" local_lang ") ) NEWAPPL PASSLIB"


This is the CLIST first line was called
Code:

PROC 0 PNAME() LOCLANG()


The error is
Code:

     1 +++ PROC 0 PNAME() LOCLANG()               
Error running CISEXE03, line 1: Routine not found


How can I call a CLIST with a REXX ?
Back to top
View user's profile Send private message

Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Fri May 31, 2013 9:10 am    Post subject:
Reply with quote

But Why do you need Clist ?

Cant you convert it to REXX and call it?
Back to top
View user's profile Send private message
chaoj

Active User


Joined: 03 Jun 2010
Posts: 103
Location: Dalian

PostPosted: Fri May 31, 2013 9:46 am    Post subject:
Reply with quote

Pandora-Box wrote:
But Why do you need Clist ?

Cant you convert it to REXX and call it?


Thanks Pandora,

We have z/OS VersionUp and DB2 VersionUp
I need to test this PGM in test system , I can not change it and also CLIST is too complicated to change to REXX .
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Fri May 31, 2013 5:33 pm    Post subject:
Reply with quote

Quote:
Error running CISEXE03, line 1: Routine not found


where is CISEX03 located??????????
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Fri May 31, 2013 5:34 pm    Post subject:
Reply with quote

Code:
Error running CISEXE03, line 1: Routine not found


Probably I would atleast suggest you to ask someone who is familiar with the code
Back to top
View user's profile Send private message
chaoj

Active User


Joined: 03 Jun 2010
Posts: 103
Location: Dalian

PostPosted: Fri May 31, 2013 5:35 pm    Post subject:
Reply with quote

dbzTHEdinosauer wrote:
Quote:
Error running CISEXE03, line 1: Routine not found


where is CISEX03 located??????????


the same lib with the REXX PGH which call it .

oh.....I should change it ?
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Fri May 31, 2013 5:35 pm    Post subject:
Reply with quote

Ah Dick,

Welcome back icon_smile.gif

Pretty happy to see you again icon_smile.gif

Was indeed missing you and reading your old posts two days back icon_smile.gif
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Fri May 31, 2013 5:50 pm    Post subject:
Reply with quote

Quote:
oh.....I should change it ?


only if that library is not in the concatenation of libraries that ISPF searches.

also, there is no problem invoking a CLIST via REXX.

it seems as if you skipped all the intoductory info provided in the manual
that explains how the operating system works.

Pandora,
thanks for the welcome. It seems as if you have been holding your own.
Back to top
View user's profile Send private message
chaoj

Active User


Joined: 03 Jun 2010
Posts: 103
Location: Dalian

PostPosted: Fri May 31, 2013 5:54 pm    Post subject:
Reply with quote

dbzTHEdinosauer wrote:
Quote:
oh.....I should change it ?


only if that library is not in the concatenation of libraries that ISPF searches.


from the error msg , it was found and executed , cause the first line of CISEXE03 is PROC 0 PNAME() LOCLANG()

Code:

  1 +++ PROC 0 PNAME() LOCLANG()               
Error running CISEXE03, line 1: Routine not found
Back to top
View user's profile Send private message
chaoj

Active User


Joined: 03 Jun 2010
Posts: 103
Location: Dalian

PostPosted: Fri May 31, 2013 6:12 pm    Post subject:
Reply with quote

dbzTHEdinosauer wrote:
Quote:
oh.....I should change it ?


only if that library is not in the concatenation of libraries that ISPF searches.

also, there is no problem invoking a CLIST via REXX.

it seems as if you skipped all the intoductory info provided in the manual
that explains how the operating system works.

Pandora,
thanks for the welcome. It seems as if you have been holding your own.


Thanks Dick , could you tell me which reference I should read ?
I'll read it .
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri May 31, 2013 6:15 pm    Post subject:
Reply with quote

Hi there DBZ .............. long time no see
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Fri May 31, 2013 6:55 pm    Post subject: Reply to: Is it possible to use REXX to call a CLIST ?
Reply with quote

CLISTs -have- to be in the SYSPROC concatenation. EXECs can be in either the SYSPROC or the SYSEXEC concatenation.

By the error message produced, likely the clist is in the SYSEXEC concatenation, so it is invoked as a rexx program.
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Fri May 31, 2013 7:16 pm    Post subject:
Reply with quote

Quote:
CLISTs -have- to be in the SYSPROC concatenation. EXECs can be in either the SYSPROC or the SYSEXEC concatenation.

By the error message produced, likely the clist is in the SYSEXEC concatenation, so it is invoked as a rexx program.


Pedro now I get a dumb question if the routine is not found then how does say

Code:
  1 +++ PROC 0 PNAME() LOCLANG()               
Error running CISEXE03, line 1: Routine not found
??

Please advice
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Fri May 31, 2013 7:44 pm    Post subject:
Reply with quote

Nevermind I figured it out icon_redface.gif
Back to top
View user's profile Send private message
Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Fri May 31, 2013 7:45 pm    Post subject:
Reply with quote

No no, CISEXE03 is not found in SYSEXEC. Just try putting the same library in a DD named SYSPROC and see what happens.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Sat Jun 01, 2013 1:25 am    Post subject: Reply to: Is it possible to use REXX to call a CLIST ?
Reply with quote

Quote:
Just try putting the same library in a DD named SYSPROC and see what happens.

I did not try it. But I am confident that my advice was accurate.

In the reported symptom:
Code:
  1 +++ PROC 0 PNAME() LOCLANG()               
Error running CISEXE03, line 1: Routine not found

Clearly CISEXE03 is found: line 1 is shown but causes an error. The 'not found' part is because the clist was launched as a rexx program. And in the rexx language syntax, 'PNAME()' appears as a function call. The rexx processor could not find a routine named 'PNAME'.

In the future, to gather more debugging information, you should issue
Code:
PROFILE MSGID

and recreate the problem. You will likely see that it is message IRX0043I. And though the explanation does not say 'you ran a clist as a rexx exec', you should now know that IRX is the prefix for rexx messages only.
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Sat Jun 01, 2013 1:30 am    Post subject:
Reply with quote

Yes i figured that

I was asking that question with a mind thinking of cobol icon_redface.gif

I realised it later
Back to top
View user's profile Send private message
chaoj

Active User


Joined: 03 Jun 2010
Posts: 103
Location: Dalian

PostPosted: Mon Jun 03, 2013 8:27 am    Post subject: Re: Reply to: Is it possible to use REXX to call a CLIST ?
Reply with quote

Pedro wrote:
Quote:
Just try putting the same library in a DD named SYSPROC and see what happens.

I did not try it. But I am confident that my advice was accurate.

In the reported symptom:
Code:
  1 +++ PROC 0 PNAME() LOCLANG()               
Error running CISEXE03, line 1: Routine not found

Clearly CISEXE03 is found: line 1 is shown but causes an error. The 'not found' part is because the clist was launched as a rexx program. And in the rexx language syntax, 'PNAME()' appears as a function call. The rexx processor could not find a routine named 'PNAME'.

In the future, to gather more debugging information, you should issue
Code:
PROFILE MSGID

and recreate the problem. You will likely see that it is message IRX0043I. And though the explanation does not say 'you ran a clist as a rexx exec', you should now know that IRX is the prefix for rexx messages only.


You're right ! Pedro , I put CISEXE03 into SYSPROC concatenation LIB and it worked !
Thanks !
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
This topic is locked: you cannot edit posts or make replies. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 pm
No new posts Replace repeated JCL with looping REXX prino CLIST & REXX 3 Thu Oct 13, 2016 5:30 am
No new posts Cobol EZASOKET call to SETSOCKOPT fails Andi1982 COBOL Programming 6 Thu Oct 06, 2016 7:12 pm


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