View previous topic :: View next topic
Author
Message
harisukumaran New User Joined: 14 Jun 2005Posts: 75
I need to download information about ETT from TWSz
Does anyone have the JCL for this ?
I did search the IBM manuals
PGM=EQQBATCH,PARM='EQQADPRT' gives only Application Details without ETT info
Back to top
Nic Clouston Global Moderator Joined: 10 May 2007Posts: 2454 Location: Hampshire, UK
What sort of information? Why is the information obtained so far insufficient?
Back to top
harisukumaran New User Joined: 14 Jun 2005Posts: 75
It only gives information from the application database. It does not pull information about ETT. Does anyone have the JCL for querying ETT information from TWSz / OPC ?
Back to top
Robert Sample Global Moderator Joined: 06 Jun 2008Posts: 8700 Location: Dubuque, Iowa, USA
What did IBM tell you when you asked them? If you haven't asked them, you need to do so.
Back to top
harisukumaran New User Joined: 14 Jun 2005Posts: 75
I could do it using:
Code:
//RUNPIF EXEC EQQYXJCL,
// SUBSYS=OPCG
//STEPLIB DD DISP=SHR,DSN=SYS1.SEQQLMD0
//OUTDATA DD DSN=USER.TEST.ETTTABLE,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(15,10),RLSE),
// DCB=(RECFM=FB,LRECL=120,BLKSIZE=0)
//SYSIN DD *
OUTPUT ETT DATA(OUTDATA) LOADER(OUTBL) KEYS()
FIELDS(ETTNAME, /* RESOURCE NAME */
ETTAPPL) /* APPLICATION TO TRIGGER */
LIST ETT
Code:
//EQQYXJCL PROC @=,
// ARGS='',
// CMD=EQQYXTOP,
// FILESPEC=FILENONE,
// LANG=EN,
// OPTS=OPTDEFLT,
// PFX='IOHX0$S.PB.AOCTL.SOE',
// REF=REFERNCE,
// REG=4M,
// SUBSYS=TWSA,
// VER=V920,
// #=
//*
//*--------------------------------------------------------------------*
//* *
//* Licensed Materials - Property of IBM *
//* 5698-A17 *
//* (C) Copyright IBM Corp. 2010 All Rights Reserved. *
//* US Government Users Restricted Rights - Use, duplication *
//* or disclosure restricted by GSA ADP Schedule Contract *
//* with IBM Corp. *
//* *
//*--------------------------------------------------------------------*
//* MODULE : EQQYXJCL *
//* PURPOSE : SCHEDULER OPERATIONAL ENVIRONMENT BATCH PROCEDURE *
//* *
//* HISTORY------------------------------------------------------------*
//* *
//*--------------------------------------------------------------------*
//* SYMBOLIC PARAMETERS: *
//* ARGS - ADDITIONAL OPTIONS *
//* CMD - REXX ENTRY POINT TO USE *
//* FILESPEC - FILE DEFINITION MEMBER NAME *
//* LANG - LANGUAGE FOR MESSAGES *
//* OPTS - OPTIONS MEMBER TO USE *
//* PFX - PREFIX FOR INSTALLATION DATASETS *
//* REG - REGION TO ALLOCATE *
//* REF - REFERENCE MEMBER TO LOAD *
//* SUBSYS - TWS SUBSYS TO COMMUNICATE WITH *
//* VER - SUBSYSTEM SOFTWARE VERSION *
//*--------------------------------------------------------------------*
//*
//*--------------------------------------------------------------------*
//* EXECUTE SOE MAIN MODULE *
//*--------------------------------------------------------------------*
//EQQYXTOP EXEC PGM=IKJEFT01,
// REGION=®,
// PARM=&@'&CMD &SUBSYS-&VER &ARGS'&#
//STEPLIB DD DISP=SHR,DSN=IOHX0$S.PB.AOCTL.SOE.SEAGALT
//SYSPROC DD DISP=SHR,DSN=IOHX0$S.PB.AOCTL.SOE.USRREXX
// DD DISP=SHR,DSN=IOHX0$S.PB.AOCTL.SOE.REXX
// DD DISP=SHR,DSN=IOHX0$S.PB.AOCTL.SOE.SOEEXEC
//EQQMLIB DD DISP=SHR,DSN=SYS1.SEQQMSG0
//EQQMLOG DD SYSOUT=*
//EQQDUMP DD SYSOUT=*
//EQQLANG DD DISP=SHR,DSN=&PFX..PARM(LANG&LANG.)
//EQQREF DD DISP=SHR,DSN=&PFX..PARM(&REF.)
//EQQOPTS DD DISP=SHR,DSN=&PFX..USRPARM(&OPTS.)
//EQQSUB DD DISP=SHR,DSN=&PFX..USRPARM(OPTS&SUBSYS)
//EQQFILE DD DISP=SHR,DSN=&PFX..PARM(&FILESPEC.)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DUMMY
Back to top
Please enable JavaScript!