View previous topic :: View next topic
|
Author |
Message |
omprakash.mf
New User
Joined: 06 Jul 2010 Posts: 12 Location: hyderabad
|
|
|
|
Hi,
I want to automate a task in OPC using rexx tool.
Task is described below:
In OPC options 1.4.1 (1-Database, 4-AD, 1-Browse), it is used to browse the applications and jobs names.
Example:
If we give the application id as "CEDS*" then the jobname as JOBS0001, then hit enter to check if the job is present in the application or not. If present it it show the application id and other details and if not present displays a msg "NO MATCHING AD"
My Task is to autoate this task.
We have a list of jobs (2000 jobs) and everytime I cannot do it manually.
I will put the job names in the sequential file and pass it as a input to the rexx tool.
Output should be 2 sequential files. 1) file with jobs present in the Application
2) Jobs that are not present in the application.
I want to know how to see the OPC information/database in the TSO without going in to OPC.
Can anyone give some start on this.
Waiting for some one help. |
|
Back to top |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010 Posts: 3048 Location: NYC,USA
|
|
|
|
You can refer to below link and see if you could utilize the OPC provided macros,
ftp.software.ibm.com/s390/sa/ingppe20.pdf
Also I don't think you would anyways get access to OPC physical files to query something. You need to talk on this to you OPC operation Team or System Programmer. |
|
Back to top |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006 Posts: 1592 Location: Andromeda Galaxy
|
|
|
|
If you wanted to get the Job names belonging to a Application : You could execute EQQYCAIN
Code: |
//ULTWSWS EXEC PGM=EQQYCAIN,PARM='<OPC SUBSYSTEM>'
//STEPLIB DD DISP=SHR,DSN=<*TWS*.LOAD>
//EQQMLIB DD DISP=SHR,DSN=<*TWS*.MSGLIB>
//BATCHL DD DUMMY
//OI DD SYSOUT=*
//AD DD SYSOUT=*
//CPOC DD SYSOUT=*
//CPOP DD SYSOUT=*
//EXPORTAD DD SYSOUT=*
//EXPORTOI DD SYSOUT=*
//ERREUR DD SYSOUT=*
//EQQMLOG DD SYSOUT=*
//EQQDUMP DD SYSOUT=*
//SYSPRINT DD DSN=PANDORA.WORK.POC,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=133,BLKSIZE=1330,RECFM=FBA),
// UNIT=SYSDA,SPACE=(TRK,(200,100),RLSE)
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
ACTION=LIST,RESOURCE=JSCOM,ADID=<APPLICATION ID> |
This gives the job details too...I am not sure how to do without getting the job details
Also ADID accepts WILD CARD so you could try ADID=*CEDS* something like that
After this sort the the SYSPRINT
by selecting the "application id and jobnames" records
Rohit,
I can't open ftp links can you share the link of the manual or the name of the guide so people like me will be benefit from that |
|
Back to top |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010 Posts: 3048 Location: NYC,USA
|
|
|
|
Pandora,
EQQYCAIN would give the list of all the jobs belongs to that application ID but TS needs to check for 2000 jobs against the this list. So may be he needs to do a matching and Non-Matching logic on these two file and get the desired results instead of REXX tool.
TS can also refer to what has been recommended by you more here,
www-01.ibm.com/support/docview.wss?uid=swg21288807
And about the link it takes little time but opens at the end, I would meanwhile see if I get any better link for the same. |
|
Back to top |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006 Posts: 1592 Location: Andromeda Galaxy
|
|
|
|
ofcourse, he needs to have a step to compare the list |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
Rohit, your first link points to OPC Automation. That is used in conjunction with SA/390 en has nothing to do with the TS wishes.
The TS should read :
TWS Managing the Workload SC32-1263-00
and
TWS Programming Interfaces SC32-1266-01 |
|
Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007 Posts: 2455 Location: Hampshire, UK
|
|
|
|
If the OPC/TWS files are VSAM then Rexx cannot access them - you either have to unload them or get your support to implement the RXVSAM module. |
|
Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009 Posts: 2481 Location: Netherlands, Amstelveen
|
|
|
|
Nic, they ARE VSAM. |
|
Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007 Posts: 2455 Location: Hampshire, UK
|
|
|
|
Peter, I thought that they probably were - I was just covering my derriere by the use of IF! And that puts the ky-bosh on Rexx unless the files are unloaded or RXVSAM is implemented.
Anyway, another piece of info that I will probably never use in my working life! (2 years to go) |
|
Back to top |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010 Posts: 3048 Location: NYC,USA
|
|
|
|
Thanks Peter for redirection. |
|
Back to top |
|
|
|