MVS Jan 2005.p65 - CBT Tape

else
say right(mcount-1,4) 'members copied to' target,
'RC='copymem(source target)
/*********************************************************************/
/* Print stats */
/*********************************************************************/
say
say right(totcount,4) 'members copied'
say right(sets,4) 'datasets created'
/*********************************************************************/
/* Shutdown */
/*********************************************************************/
shutdown: nop
/*********************************************************************/
/* Put unique shutdown logic before the call to stdexit */
/*********** @REFRESH BEGIN STOP 2ØØ2/Ø8/Ø3 Ø8:42:33 *************/
/* Shutdown message and terminate */
/*********************************************************************/
call stdexit time('e')
/*********** @REFRESH END STOP 2ØØ2/Ø8/Ø3 Ø8:42:33 *************/
/* Internal Subroutines - not refreshable */
/* */
/* DSALLOC - Allocate the new DSN */
/* COPYMEM - Invoke IEBCOPY to copy members */
/* CONT - Append line with a continuation in column 72 */
/* */
/*********************************************************************/
/* DSALLOC - Allocate the new DSN */
/*********************************************************************/
dsalloc: arg olddsn num memnum parm totmem
if parm = 'ALPHA' then
clonetype = last
else
clonetype = '#'
newdsn = userid()'.@'num||clonetype||memnum'.'olddsn
dirblks = format(memnum/4,,Ø)
pmem = memnum/totmem
prispace = format(pmem*(sysused/sysblkstrk/systrkscyl),,Ø)
if prispace = Ø then prispace = 1
secspace = prispace * 5
if sysrecfm = 'U' then
do
call tsotrap "ALLOC F(CLONE) DA("qdsn(newdsn)")",
"LIKE("qdsn(olddsn)") DIR("dirblks")",
"SPACE("prispace secspace") CYLINDERS",
"BLKSIZE("sysblksize")"
end
else
do
call tsotrap "ALLOC F(CLONE) DA("qdsn(newdsn)")",
54 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.