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

Is it possible to use REXX to call a CLIST ?


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
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
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

Global Moderator


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

PostPosted: Fri May 31, 2013 9:10 am
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
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
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

Global Moderator


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

PostPosted: Fri May 31, 2013 5:34 pm
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
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

Global Moderator


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

PostPosted: Fri May 31, 2013 5:35 pm
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
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
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
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: 8797
Location: Welsh Wales

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

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

Global Moderator


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

PostPosted: Fri May 31, 2013 6:55 pm
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

Global Moderator


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

PostPosted: Fri May 31, 2013 7:16 pm
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

Global Moderator


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

PostPosted: Fri May 31, 2013 7:44 pm
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
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

Global Moderator


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

PostPosted: Sat Jun 01, 2013 1:25 am
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

Global Moderator


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

PostPosted: Sat Jun 01, 2013 1:30 am
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
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 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