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
 

 

call a clist present in a local PDS from a panel

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Anu Vijayaraghavan

New User


Joined: 13 Feb 2008
Posts: 16
Location: Chennai

PostPosted: Wed Sep 02, 2009 2:55 pm    Post subject: call a clist present in a local PDS from a panel
Reply with quote

Hi I have a panel. From this panel when an option is selected a DB2 program needs to be invoked.
Code:

)PROC                                                                 
/*                                                           */       
   &ZSEL = TRANS(TRUNC(&OPTCM,'.')                                     
         1,'CMD(%DSNRUN PROGA SYSTEM(SUB-SYSTEM id) &DEBUG)' 
         2,'CMD(%DSNRUN PROGB SYSTEM(SUB SYSTEM id) &DEBUG)'
         3,'CMD(%Clist-name)'                                                       
/*                                                           */       
         X,'EXIT'                                                     
         *,'?')     


The first two options works fine. But when option 3 is selected the CLIST from default production library is invoked. But I want the CLIST to be invoked from a test library. How to specify this?
Back to top
View user's profile Send private message

prino

Active Member


Joined: 07 Feb 2009
Posts: 989
Location: Oostende, Belgium

PostPosted: Wed Sep 02, 2009 3:17 pm    Post subject:
Reply with quote

Code:
CMD(EX 'XXXX.YYYYY.CLIST(WHATEVER)')
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed Sep 02, 2009 3:26 pm    Post subject:
Reply with quote

Try CMD(EXEC "HLQ.MYPDS(%CLISTNAME)")

(CMD can also be used for TSO commands...)

O.
Back to top
View user's profile Send private message
Anu Vijayaraghavan

New User


Joined: 13 Feb 2008
Posts: 16
Location: Chennai

PostPosted: Wed Sep 02, 2009 3:38 pm    Post subject:
Reply with quote

Thanks for the help. But this command is not working for me. I have attached the code of the CLIST below.

Code:


ALLOC FI(LOADFILE) DA('FILE NAME') MOD REU 
                 %DSNRUN PROGC SYSTEM(TDB2) &DEBUG     
FREE FI(LOADFILE)                                       
/*                                                       
GOODBYE: -                                               
EXIT 


i tried the following variants.

Code:

CMD(ISPEXEC 'XXXX.YYYYY.CLIST(WHATEVER)')
CMD(%EX 'XXXX.YYYYY.CLIST(WHATEVER)')
Back to top
View user's profile Send private message
prino

Active Member


Joined: 07 Feb 2009
Posts: 989
Location: Oostende, Belgium

PostPosted: Wed Sep 02, 2009 3:40 pm    Post subject:
Reply with quote

Both are wrong, you cannot use ISPEXEC and if you use EX, is must be just EX and not %EX!
Back to top
View user's profile Send private message
Anu Vijayaraghavan

New User


Joined: 13 Feb 2008
Posts: 16
Location: Chennai

PostPosted: Wed Sep 02, 2009 4:13 pm    Post subject:
Reply with quote

Code:

   &ZSEL = TRANS(TRUNC(&OPTCM,'.')                   
         1,'CMD(%DSNRUN FIS703 SYSTEM(TDB2) &DEBUG)'
         2,'CMD(%DSNRUN FIS704 SYSTEM(TDB2) &DEBUG)'
         3,'CMD(EX 'T010AU0.FISS.CLIST(FISC05)')'   


This is the way I tried initially. But it did not work. Got the following error:
Code:

******************************************************************************
* ISPP156                                                                    *
*                                                                            *
* Panel 'FISP03' error                                                       *
* Unrecognized keyword.                                                      *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
* Panel line where error was detected:                                       *
* 3,'CMD(EX 'T010AU0.FISS.CLIST(FISC05)')'                                   *
*                                                                            *
* Enter HELP command for further information regarding this error.           *
* Press ENTER key to terminate the dialog.                                   *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
******************************************************************************
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Wed Sep 02, 2009 9:44 pm    Post subject: Reply to: call a clist present in a local PDS from a panel
Reply with quote

What does message ISPP156 say?

Code:
         3,'CMD(EX 'T010AU0.FISS.CLIST(FISC05)')'

I think you have delimiter errors. Try doubling the nested single quotes.
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
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 Cobol EZASOKET call to SETSOCKOPT fails Andi1982 COBOL Programming 6 Thu Oct 06, 2016 7:12 pm
No new posts Strange EXEC function call in z/VM Willy Jensen CLIST & REXX 3 Wed Oct 05, 2016 2:07 pm


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