MVS Jan 2005.p65 - CBT Tape

push trace() time('L') module 'From:' sigl 'Parms:' sparms
call modtrace 'START' sigl
/*********************************************************************/
/* Trap the output from the LISTA STATUS command */
/*********************************************************************/
call outtrap 'lines.'
address TSO "LISTALC STATUS"
call outtrap 'off'
ddnum = Ø
/*********************************************************************/
/* Parse out the DDNAMEs and concatenate into a list */
/*********************************************************************/
ddlist = ''
do ddl=1 to lines.Ø
if words(lines.ddl) = 2 then
do
parse upper var lines.ddl ddname .
ddlist = ddlist ddname
ddnum = ddnum + 1
end
else
do
iterate
end
end
/*********************************************************************/
/* Return the number of DDs */
/*********************************************************************/
pull tracelvl . module . sigl . sparms
call modtrace 'STOP' sigl
interpret 'trace' tracelvl
return ddnum
/*********** @REFRESH END DDLIST 2ØØ2/12/15 Ø4:54:32 *************/
/*********** @REFRESH BEGIN DDDSNS 2ØØ2/Ø9/11 ØØ:37:36 *************/
/* DDDSNS - Returns number of DSNs in a DD and populates DDDSNS */
/*-------------------------------------------------------------------*/
/* TARGDD - DD to return DSNs for */
/*********************************************************************/
dddsns: module = 'DDDSNS'
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
arg targdd
if targdd = '' then call rcexit 77 'DD missing for DDDSNS'
/*********************************************************************/
/* Trap the output from the LISTA STATUS command */
/*********************************************************************/
x = outtrap('lines.')
address TSO "LISTALC STATUS"
64 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.