MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
*********************************************************************/<br />
qdsn: module = 'QDSN'<br />
if wordpos(module,probe) Ø then trace 'r'; else trace 'n'<br />
parse arg sparms<br />
push trace() time('L') module 'From:' sigl 'Parms:' sparms<br />
call modtrace 'START' sigl<br />
parse arg qdsn<br />
qdsn = "'"strip(qdsn,"B","'")"'"<br />
pull tracelvl . module . sigl . sparms<br />
call modtrace 'STOP' sigl<br />
interpret 'trace' tracelvl<br />
return qdsn<br />
/*********** @REFRESH END QDSN 2ØØ2/Ø9/11 Ø1:15:23 *************/<br />
/*********** @REFRESH BEGIN TSOTRAP 2ØØ2/12/15 Ø5:18:45 *************/<br />
/* TSOTRAP - Capture the output from a TSO command in a stem */<br />
/*-------------------------------------------------------------------*/<br />
/* VALIDRC - Optional valid RC, defaults to zero */<br />
/* TSOPARM - Valid TSO command */<br />
/*********************************************************************/<br />
tsotrap: module = 'TSOTRAP'<br />
if wordpos(module,probe) Ø then trace 'r'; else trace 'n'<br />
parse arg sparms<br />
push trace() time('L') module 'From:' sigl 'Parms:' sparms<br />
call modtrace 'START' sigl<br />
parse arg tsoparm<br />
/*********************************************************************/<br />
/* If the optional valid_rc parm is present use it, if not assume Ø */<br />
/*********************************************************************/<br />
parse var tsoparm valid_rc tso_cmd<br />
if datatype(valid_rc,'W') = Ø then<br />
do<br />
valid_rc = Ø<br />
tso_cmd = tsoparm<br />
end<br />
call outtrap 'tsoout.'<br />
tsoline = sigl<br />
address TSO tso_cmd<br />
CRC = RC<br />
call outtrap 'off'<br />
/*********************************************************************/<br />
/* If RC = Ø then return */<br />
/*********************************************************************/<br />
if CRC