MVS Jan 2005.p65 - CBT Tape

dsnnum = Ø
ddname = '$DDNAME$'
/*********************************************************************/
/* Parse out the DDNAMEs, locate the target DD and concatentate DSNs */
/*********************************************************************/
do ddd=1 to lines.Ø
select
when words(lines.ddd) = 1 & targdd = ddname &,
lines.ddd 'KEEP' then
dddsns = dddsns strip(lines.ddd)
when words(lines.ddd) = 1 & strip(lines.ddd),
'KEEP' then
dddsn.ddd = strip(lines.ddd)
when words(lines.ddd) = 2 then
do
parse upper var lines.ddd ddname .
if targdd = ddname then
do
fdsn = ddd - 1
dddsns = lines.fdsn
end
end
otherwise iterate
end
end
/*********************************************************************/
/* Get the last DD */
/*********************************************************************/
ddnum = ddlist()
lastdd = word(ddlist,ddnum)
/*********************************************************************/
/* Remove the last DSN from the list if not the last DD or SYSEXEC */
/*********************************************************************/
if targdd 'SYSEXEC' & targdd lastdd then
do
dsnnum = words(dddsns) - 1
dddsns = subword(dddsns,1,dsnnum)
end
/*********************************************************************/
/* Return the number of DSNs in the DD */
/*********************************************************************/
pull tracelvl . module . sigl . sparms
call modtrace 'STOP' sigl
interpret 'trace' tracelvl
return dsnnum
/*********** @REFRESH END DDDSNS 2ØØ2/Ø9/11 ØØ:37:36 *************/
/*********** @REFRESH BEGIN QDSN 2ØØ2/Ø9/11 Ø1:15:23 *************/
/* QDSN - Make sure there are only one set of quotes */
/*-------------------------------------------------------------------*/
/* QDSN - The DSN */
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.
65