View previous topic :: View next topic
|
Author |
Message |
Anu Vijayaraghavan
New User
Joined: 13 Feb 2008 Posts: 16 Location: Chennai
|
|
|
|
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 |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
Code: |
CMD(EX 'XXXX.YYYYY.CLIST(WHATEVER)') |
|
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
Try CMD(EXEC "HLQ.MYPDS(%CLISTNAME)")
(CMD can also be used for TSO commands...)
O. |
|
Back to top |
|
|
Anu Vijayaraghavan
New User
Joined: 13 Feb 2008 Posts: 16 Location: Chennai
|
|
|
|
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 |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
Both are wrong, you cannot use ISPEXEC and if you use EX, is must be just EX and not %EX! |
|
Back to top |
|
|
Anu Vijayaraghavan
New User
Joined: 13 Feb 2008 Posts: 16 Location: Chennai
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
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 |
|
|
|