Cache the output of the TSO commands in a DS

corneluta_pana · New User Joined: 24 May 2006 Posts: 3 Location: czech

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.

cpuhawg · Posted: Thu Nov 30, 2006 8:44 pm

Check out this link:

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.

corneluta_pana · New User Joined: 24 May 2006 Posts: 3 Location: czech

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

ofer71 · Posted: Fri Dec 01, 2006 11:54 pm

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

O.

corneluta_pana · New User Joined: 24 May 2006 Posts: 3 Location: czech

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.