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
 

 

2 same CLIST pgm but with different name working differently

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

New User


Joined: 03 Nov 2014
Posts: 78
Location: Malaysia

PostPosted: Fri Jun 03, 2016 4:55 pm    Post subject: 2 same CLIST pgm but with different name working differently
Reply with quote

Hi,

We have this CLIST to invoke and view the copybook immediately.

The CLIST program is named as VCOPY. To use it, I just need to put in command line:
Code:
Command ===> VCOPY somecopy


Now I tried to copy the member in the same library, named it as VPARM, no update on the program yet. (I plan to edit the CLIST to view the parm immediately)

After invoking it,
Code:
Command ===> VPARM somecopy


I am now receiving this message
Code:
 ENTER POSITIONAL PARAMETER CPY -


When I try to reply to it:
Code:
 ENTER POSITIONAL PARAMETER CPY -
somecopy


I will have this 'Command not executed' message.

How come I won't get the same scenario even though I have the exact program codes? Is there any table or something for CLIST which I need to add first in order for it to work like the original one? Please help.

Here's a copy of the program:
Code:
PROC 1 CPY          /*    */                   
CONTROL NOFLUSH NOMSG END(ENDO)                 
ISPEXEC CONTROL ERRORS RETURN                   
ERROR DO                                       
    SET &RC = &LASTCC                           
    RETURN                                     
    ENDO                                       
SET &RC = 0                                     
IF &SUBSTR(1:1,&CPY) = &STR(Y) THEN DO         
    ISPEXEC VIEW DATASET(XXXX.FPS.COPYLIB(&CPY))
    ENDO                                       
ELSE DO                                         
    ISPEXEC VIEW DATASET(YYYY.FCS.COPYLIB(&CPY))
    ENDO                                       
IF  &RC > 8 THEN DO                             
    WRITE BROWSE - RC(&RC)                     
    EXIT                                       
    ENDO                                       


Note: It will work correctly if I invoke this.
Code:
TSO VPARM somecopy
Back to top
View user's profile Send private message

Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1714
Location: UK

PostPosted: Fri Jun 03, 2016 5:48 pm    Post subject:
Reply with quote

Temporarily rename your VPARM clist to something else then try entering VPARM again on the command line. There is probably something else called VPARM.
Back to top
View user's profile Send private message
Willy Jensen

New User


Joined: 01 Sep 2015
Posts: 96
Location: Switzerland

PostPosted: Fri Jun 03, 2016 8:32 pm    Post subject:
Reply with quote

It looks like there are ISPF command table entries for VCOPY and VPARM. You need to find out what those entries look like.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Fri Jun 03, 2016 9:42 pm    Post subject: Reply to: 2 same CLIST pgm but with different name working differently
Reply with quote

Similar to Nic's comment, I think you have some other member called VPARM that is found first.

The search order is something like this:
* load module concatenation
* SYSPROC concatenation
* SYSEXEC concatenation

Try using a less common name.

Issue TSO ISRDDN followed by command: MEMBER VPARM
It will show you which datasets have that member.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Fri Jun 03, 2016 9:58 pm    Post subject: Reply to: 2 same CLIST pgm but with different name working differently
Reply with quote

Because you are getting:
Code:
 ENTER POSITIONAL PARAMETER CPY -


My next guess is that you were previously issuing command somewhere else, but the failure is when you issue from the editor. It starts as if it was an editor macro, but it is not coded as one.

BTW: I recommend that you write using REXX rather than CLISTs.
Back to top
View user's profile Send private message
boyti ko

New User


Joined: 03 Nov 2014
Posts: 78
Location: Malaysia

PostPosted: Mon Jun 06, 2016 7:39 am    Post subject:
Reply with quote

Hi,

Thank you for all of your reply. I renamed the VPARM into VPARM1 and tried to run again.

Code:
COMMAND VPARM NOT FOUND
***                     


I also tried to check using the TSO ISRDDN method, but still, I haven't able to find the same program.

Moving forward, same as Pedro's recommendation, I have created a REXX program for this one.
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 SCRNAME not working on my mainframe? mrsidhu12 TSO/ISPF 7 Thu Sep 01, 2016 2:17 pm
No new posts how to find clist's or view library Andrew Hsia CLIST & REXX 4 Tue Jun 28, 2016 6:07 pm
No new posts REXX Screen not working due to LINKED... sundarkudos CLIST & REXX 1 Mon May 09, 2016 1:44 pm
No new posts Free FILE not working for specific users sankalp-goyal CLIST & REXX 12 Mon Apr 25, 2016 6:33 pm


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