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
 

 

Cache the output of the TSO commands in a DS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Mainframe Interview Questions
View previous topic :: :: View next topic  
Author Message
corneluta_pana

New User


Joined: 24 May 2006
Posts: 3
Location: czech

PostPosted: Thu Nov 30, 2006 7:00 pm    Post subject: Cache the output of the TSO commands in a DS
Reply with quote

Hello,
Can somebody help me to code a jcl with witch i cache the output of the "HSEND Q CDS" command in a data set?

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

cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Thu Nov 30, 2006 8:44 pm    Post subject: Re: Cache the output of the TSO commands in a DS
Reply with quote

Check out this link:

http://ibmmainframes.com/viewtopic.php?t=14166

There is a REXX program that can be stored in an authorized REXX library as the letter "O".

You should then be able to enter:

TSO O HSEND Q CDS

and the output of your command will be placed in a dataset.
Back to top
View user's profile Send private message
corneluta_pana

New User


Joined: 24 May 2006
Posts: 3
Location: czech

PostPosted: Fri Dec 01, 2006 8:23 pm    Post subject: Re: Cache the output of the TSO commands in a DS
Reply with quote

Hello iI tried the job witch you suggest me, with some modification:
1.This is the rexx program witch you give to me, who copy the info in my dataset
/* REXX */

ARG TSOCMD
IF TSOCMD = '' THEN DO
SAY;SAY
'SYNTAX => TSO O TSO-COMMAND '
SAY;
CALL GITOUT RC=99
END

ADDRESS TSO
DDNM=IBMUSER.OUTPUT1
STUFF = MSG(OFF)
"DELETE '"DDNM"'"
RC=0
"ALLOC FILE(DDN) DA('"DDNM"') UNIT(SYSDA) MOD",
"SPACE(10,50) TRACKS LRECL(140) "
STUFF = MSG(ON)
STUFF=OUTTRAP(LINE.)
TSOCMD
STUFF=OUTTRAP('OFF')
"EXECIO" LINE.0 "DISKW" DDN "(STEM LINE. FINIS"
STUFF = MSG(OFF)
"FREE FI(DDN)"
ADDRESS

GITOUT:
EXIT
2.And this is the jcl witch call the rexx program with my argument(i don't have authority to create a member in authoriezed rexx library)
//STARTA JOB &SYSUID,'C.SANDU',CLASS=A,
// MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//******************************************************************
//**************** REXX PROGRAM LAUNCHER ***************************
//IRXTSO EXEC PGM=IKJEFT01
//SYSEXEC DD DISP=SHR,DSN=IBMUSER.SEND.CNTL
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
%O HELP PING
/*
My pb is that this program works OK when the argument is %O HELP PING but when i try for %o HSEND Q CDS the output is not put it to my dataset, it is still display only on the terminal
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Fri Dec 01, 2006 11:54 pm    Post subject:
Reply with quote

Try %o 'HSEND Q CDS' (with quotes).

O.
Back to top
View user's profile Send private message
corneluta_pana

New User


Joined: 24 May 2006
Posts: 3
Location: czech

PostPosted: Mon Dec 11, 2006 4:34 pm    Post subject: Re: Cache the output of the TSO commands in a DS
Reply with quote

Is not working and i find it why.
It seems that help messeges are generate by PUTLINE macro, but HSM use another macro TPUT.So. now i need help to find witch funtion can I use to catch messeges generated by TPUT macro.
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 -> Mainframe Interview Questions All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts find RACF group for access to spooled... jzhardy JCL & VSAM 1 Mon May 08, 2017 11:46 am
No new posts Problem reading GTF trace output danik56 ABENDS & Debugging 7 Thu Mar 16, 2017 1:02 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts How to get current date -1 and curren... murali.andaluri DFSORT/ICETOOL 3 Wed Mar 08, 2017 2:09 pm


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