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
 

 

How can I get OPCA to invoke a user tool to edit JCL?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools
View previous topic :: :: View next topic  
Author Message
Roy Malcomess

New User


Joined: 16 Aug 2012
Posts: 4
Location: Australia

PostPosted: Tue Aug 21, 2012 5:57 am    Post subject: How can I get OPCA to invoke a user tool to edit JCL?
Reply with quote

ISPF panel EQQAJCLE has instructions:
"User must set a panel name to activate his own JCL edit/browse tool."

HELP for panel EQQABOPL states:
"Specify the J (jcl) command to browse the JCL (available only if edit tool was specified on the EQQXJCLP panel, option 0.6)"

However, when I created a menu panel with options to BROWSE or VIEW the required dataset and member, it was invoked as a DISPLAY panel, so the menu selections were not operative.

How can I get OPCA to SELECT the panel instead of DISPLAYing it?
I would really prefer to invoke a Rexx exec to do the work, but this does not seem to be an option.

My work around has been to create 2 ISPF commands named BJCL and VJCL to BROWSE or VIEW the JCL and then use the DISPLAY panel named in OPC option 0.6 as a pseudo-menu with these ISPF commands shown as options on the panel.
Back to top
View user's profile Send private message

PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2433
Location: Netherlands, Amstelveen

PostPosted: Tue Aug 21, 2012 12:54 pm    Post subject: Reply to: How can I get OPCA to invoke a user tool to edit J
Reply with quote

Maybe this will be of help :

http://my.safaribooksonline.com/book/operating-systems-and-server-administration/tivoli/0738491225/customizing-for-job-scan-installations/287#X2ludGVybmFsX0ZsYXNoUmVhZGVyP3htbGlkPTA3Mzg0OTEyMjUvMjg3
Back to top
View user's profile Send private message
Roy Malcomess

New User


Joined: 16 Aug 2012
Posts: 4
Location: Australia

PostPosted: Wed Aug 22, 2012 4:54 am    Post subject: Reply to: How can I get OPCA to invoke a user tool to edit J
Reply with quote

Thanks for the response.

I have already read the relevant sections in that Redbook.
Unfortunately, we do not have JOB/SCAN installed.

My basic problem is that TWS displays the panel specified at option 0.6, instead of selecting it.

I cannot see how JOB/SCAN will get around this problem either, unless they modify the code which uses the JCL edit panel as part of JOB/SCAN implementation.

My method of using a display panel which lists commands available from the ISPF command table works, but is not elegant.

What I would really like, is to be able to specify a Rexx exec to be executed for the purpose of JCL editing. Then if the user enters J to browse the JCL, it would BROWSE the JCL immediatley, instead of displaying a time wasting panel.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2433
Location: Netherlands, Amstelveen

PostPosted: Wed Aug 22, 2012 9:59 pm    Post subject:
Reply with quote

Well the manual is saying displaying the panel, in other words you have to do some research how to do the selecting of the panel. But maybe the OPC/TWS people can help you out.
Back to top
View user's profile Send private message
Roy Malcomess

New User


Joined: 16 Aug 2012
Posts: 4
Location: Australia

PostPosted: Thu Aug 23, 2012 4:42 am    Post subject: Reply to: How can I get OPCA to invoke a user tool to edit J
Reply with quote

Thanks for the response.

I have already done the research and not found an answer.
That is why I posted the question here, in the hope that someone else might have implemented a solution to the problem.

Has this problem been resolved at your site?
If so, how?
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2433
Location: Netherlands, Amstelveen

PostPosted: Thu Aug 23, 2012 10:58 am    Post subject:
Reply with quote

At my company this feature was not used. So no experience here.
Back to top
View user's profile Send private message
Roy Malcomess

New User


Joined: 16 Aug 2012
Posts: 4
Location: Australia

PostPosted: Thu Aug 23, 2012 11:25 am    Post subject: Reply to: How can I get OPCA to invoke a user tool to edit J
Reply with quote

I have developed my own solution after trawling through the TWS panels:

I changed 2 panels: EQQABOPL and EQQABSDP
I initialised &JCLLIB to the JCL library dsname in both panels.

In panel EQQABOPL, I changed the following line:
&jcl,'MOD(EQQXDSPX,&xjclpan)' /* edit jcl @01A
To:
&jcl,'CMD(%VIEWFL &JCLLIB(&OPJOBNM))' /* edit jcl RoyM

In panel EQQABSDP, I changed the following line:
8,'MOD(EQQXDSPX,&xjclpan)' /* browse jcl @01A
To:
8,'CMD(%VIEWFL &JCLLIB(&OPJOBNM))' /* browse jcl -RoyM


The net effect of the above, is to invoke the in-house Rexx exec VIEWFL to VIEW the JCL member, without the requirement to display another panel in between.

Hope this helps someone else.

Roy.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2433
Location: Netherlands, Amstelveen

PostPosted: Thu Aug 23, 2012 11:33 am    Post subject:
Reply with quote

Roy, thanks for sharing.
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 -> IBM Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Edit large number of datasets (QSAM) zh_lad TSO/ISPF 3 Tue Apr 04, 2017 6:08 pm
No new posts INVOKE WEBSERVICE error danik56 CICS 11 Thu Mar 09, 2017 11:52 am
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts User Cancels the job PANDU1 DB2 1 Sat Mar 04, 2017 8:21 pm
No new posts Mass comment and edit elixir1986 IBM Tools 3 Thu Mar 02, 2017 10:09 pm


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