Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Need to download ETT details from TWSz using batch job

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

New User


Joined: 14 Jun 2005
Posts: 62

PostPosted: Sat Dec 28, 2019 2:30 am    Post subject: Need to download ETT details from TWSz using batch job
Reply with quote

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
View user's profile Send private message

Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2292
Location: Hampshire, UK

PostPosted: Sat Dec 28, 2019 4:08 pm    Post subject: Reply to: Need to download ETT details from TWSz using batch job
Reply with quote

What sort of information? Why is the information obtained so far insufficient?
Back to top
View user's profile Send private message
harisukumaran

New User


Joined: 14 Jun 2005
Posts: 62

PostPosted: Tue Dec 31, 2019 6:43 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8518
Location: Dubuque, Iowa, USA

PostPosted: Tue Dec 31, 2019 7:24 pm    Post subject:
Reply with quote

What did IBM tell you when you asked them? If you haven't asked them, you need to do so.
Back to top
View user's profile Send private message
harisukumaran

New User


Joined: 14 Jun 2005
Posts: 62

PostPosted: Wed Jan 01, 2020 3:20 am    Post subject:
Reply with quote

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=&REG,                                                 
//         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
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 How to compare Packed date in details... Floramq SYNCSORT 5 Sun Jan 05, 2020 7:40 am
No new posts REXX - CLIST program to be invoked af... pkmurali CLIST & REXX 5 Wed Sep 04, 2019 4:31 pm
No new posts z/VM z/VSE Get CPU-time of a COBOL Ba... Andi1982 COBOL Programming 3 Mon Mar 11, 2019 3:36 pm
No new posts calling java code(on mainframe from c... elixir1986 COBOL Programming 1 Fri Nov 30, 2018 1:57 am
No new posts batch cobol/db2 paragraph fall thru a... alois eisshofer COBOL Programming 5 Wed Mar 14, 2018 12:21 am

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