Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 1894
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

Active User


Joined: 01 Sep 2015
Posts: 170
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: 2086
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: 2086
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 LIBDEF not working in called proc packerm CLIST & REXX 0 Fri Sep 15, 2017 7:22 pm
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am
No new posts ISREDIT MACRO NOT WORKING! :cry: kirank889 TSO/ISPF 3 Thu Aug 03, 2017 5:46 pm
No new posts Calling CLIST through job and REXX Sahasra K CLIST & REXX 19 Tue Aug 01, 2017 10:25 am
No new posts Restart=Step not working ALAK SAHA JCL & VSAM 6 Fri Jun 30, 2017 6:28 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us