Great! One I can finally answer since I just got help on this. I tried the
scripts too, unsuccessfully.
The only way I know of to route TSM command output to a dataset is by using
the TSM TSO Client. I either use the information as presented, or I
REXXrcise it
Here's the JCL I got from asking a similar question in this forum...
//O8XC JOB (8218,08017,8X,G),'BIN 259 IKE ',NOTIFY=O8X,
// MSGCLASS=H,CLASS=A,USER=SPPDASD,REGION=0M
/*JOBPARM L=999999,T=1440
//A EXEC PGM=IEFBR14
//D1 DD DSN=O8X.ADSM.MSGS,
// SPACE=(TRK,0),
// UNIT=3390,DISP=(MOD,DELETE)
//TSPROC EXEC PGM=IKJEFT01,DYNAMNBR=30
//STEPLIB DD DSN=SYS2.TSM.V4219.LOADLIB,DISP=SHR
//DSCOPT DD DISP=SHR,DSN=SYS2.ADSM.$TSO.OPTIONS
//DSCLANG DD DSN=SYS1.SANSMSG(ANSMENU),DISP=SHR
//D1 DD DSN=O8X.ADSM.MSGS,
// SPACE=(CYL,(1,5)),LRECL=84,RECFM=VB,DSORG=PS,
// UNIT=3390,DISP=(,CATLG,DELETE),BLKSIZE=0
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PROF PRE(O8X)
DSMADMC -ID=O8X -PA=D071676 -OUTFILE=DD:D1 MACRO DD:D2 -TAB
//D2 DD *
SELECT DATE_TIME,MSGNO,MESSAGE FROM ACTLOG -
WHERE SEVERITY='E' OR SEVERITY='W'
/*
//
Here is the CLIST...
PROC 0
PROFILE PROMPT PRE(&SYSUID)
CONTROL NOLIST NOCONLIST MSG FLUSH PROMPT NOSYMLIST
WRITE 1.) ADSM ON SY1C
WRITE 2.) ADSME ON SY1C
WRITE 3.) TSMEDP00 ON SY1D
WRITE 4.) TSMNTP00 ON SY1D
WRITE 5.) TSMUXP00 ON SY1D
WRITE 6.) TSMUXT01 ON SY1D
PICKSRVR: +
WRITENR ENTER NUMBER 1 = 6 FOR THE TSM SERVER-->
READ &SERVR
IF &DATATYPE(&SERVR) ¬= NUM THEN DO
WRITE &SERVR IS INCORRECT. ENTER 1,2,3,4,5, OR 6
GOTO PICKSRVR
END
IF &SERVR < 1 AND &SERVR > 6 THEN DO
WRITE &SERVR IS INCORRECT. ENTER 1,2,3,4,5, OR 6
GOTO PICKSRVR
END
IF &SERVR = 1 THEN SET &SRVR = &STR(ADSM)
IF &SERVR = 2 THEN SET &SRVR = &STR(ADSME)
IF &SERVR = 3 THEN SET &SRVR = &STR(TSMEDP00)
IF &SERVR = 4 THEN SET &SRVR = &STR(TSMNTP00)
IF &SERVR = 5 THEN SET &SRVR = &STR(TSMUXP00)
IF &SERVR = 6 THEN SET &SRVR = &STR(TSMUXT01)
WRITE CONTACTING &SRVR
/* IT IS IMPORTANT TO INCLUDE THE PARAMETER "PROMPT" */
/* IN THE PROFILE AND CONTROL STATEMENTS TO ALLOW */
/* DSMADMC (TSO ADMIN CLIENT MODULE) TO PROMPT FOR */
/* INPUT (E.G. PASSWORD). */
ALLOC F(DSCOPT) DA('SYS2.&SRVR..$TSO.OPTIONS') SHR REU
ALLOC F(DSCLANG) DA('SYS1.SANSMSG(ANSMENU)') SHR REU
CALL 'SYS2.TSM.V4219.LOADLIB(DSMADMC)'
FREE F(DSCOPT DSCLANG )
PROFILE NOPRE
WRITE &SRVR TSO CLIENT SESSION ENDED
Hope this helps
|