Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 pm
No new posts Where is output from PARM ABEXIT (SNA... packerm CA Products 3 Thu Sep 28, 2017 4:06 pm
No new posts Garbage on output file Hervey Martinez SYNCSORT 4 Wed Sep 27, 2017 12:50 am

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