MVS Jan 2005.p65 - CBT Tape

*********************************************************************/
qdsn: module = 'QDSN'
if wordpos(module,probe) Ø then trace 'r'; else trace 'n'
parse arg sparms
push trace() time('L') module 'From:' sigl 'Parms:' sparms
call modtrace 'START' sigl
parse arg qdsn
qdsn = "'"strip(qdsn,"B","'")"'"
pull tracelvl . module . sigl . sparms
call modtrace 'STOP' sigl
interpret 'trace' tracelvl
return qdsn
/*********** @REFRESH END QDSN 2ØØ2/Ø9/11 Ø1:15:23 *************/
/*********** @REFRESH BEGIN TSOTRAP 2ØØ2/12/15 Ø5:18:45 *************/
/* TSOTRAP - Capture the output from a TSO command in a stem */
/*-------------------------------------------------------------------*/
/* VALIDRC - Optional valid RC, defaults to zero */
/* TSOPARM - Valid TSO command */
/*********************************************************************/
tsotrap: module = 'TSOTRAP'
if wordpos(module,probe) Ø then trace 'r'; else trace 'n'
parse arg sparms
push trace() time('L') module 'From:' sigl 'Parms:' sparms
call modtrace 'START' sigl
parse arg tsoparm
/*********************************************************************/
/* If the optional valid_rc parm is present use it, if not assume Ø */
/*********************************************************************/
parse var tsoparm valid_rc tso_cmd
if datatype(valid_rc,'W') = Ø then
do
valid_rc = Ø
tso_cmd = tsoparm
end
call outtrap 'tsoout.'
tsoline = sigl
address TSO tso_cmd
CRC = RC
call outtrap 'off'
/*********************************************************************/
/* If RC = Ø then return */
/*********************************************************************/
if CRC