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.
"LIKE("qdsn(olddsn)") DIR("dirblks")",<br />
"SPACE("prispace secspace") CYLINDERS",<br />
"LRECL("syslrecl") BLKSIZE("sysblksize")"<br />
end<br />
call tsotrap "FREE F(CLONE)"<br />
return newdsn<br />
/*********************************************************************/<br />
/* COPYMEM - Invoke IEBCOPY to copy members */<br />
/*********************************************************************/<br />
copymem: arg olddsn newdsn<br />
close = mcount + 1<br />
sysin.close = ' )'<br />
call tsotrap "ALLOC F(SOURCE) DA("qdsn(olddsn)") SHR REUSE"<br />
call tsotrap "ALLOC F(TARGET) DA("qdsn(newdsn)") SHR REUSE"<br />
call viodd 'SYSIN'<br />
address TSO "CALL *(IEBCOPY)"<br />
call rcexit RC 'IEBCOPY error copying' olddsn 'to' newdsn<br />
call tsotrap "FREE F(SOURCE TARGET SYSIN)"<br />
drop sysin.<br />
return Ø<br />
/*********************************************************************/<br />
/* CONT - Append line with a continuation in column 72 */<br />
/*********************************************************************/<br />
cont: parse arg string<br />
contstring = string copies(' ',7Ø-length(string))||'X'<br />
return contstring<br />
/*********** @REFRESH BEGIN SUBBOX 2ØØ4/Ø3/1Ø Ø1:25:Ø3 *************/<br />
/* */<br />
/* 2Ø Internal Subroutines provided in PDSSPLIT */<br />
/* */<br />
/* Last Subroutine REFRESH was 29 Jul 2ØØ4 2Ø:55:33 */<br />
/* */<br />
/* RCEXIT - Exit on non-zero return codes */<br />
/* TRAP - Issue a common trap error message using rcexit */<br />
/* ERRMSG - Build common error message with failing line number */<br />
/* STDENTRY - Standard Entry logic */<br />
/* STDEXIT - Standard Exit logic */<br />
/* MSG - Determine whether to SAY or ISPEXEC SETMSG the message */<br />
/* DDCHECK - Determine whether a required DD is allocated */<br />
/* DDLIST - Returns number of DDs and populates DDLIST variable */<br />
/* DDDSNS - Returns number of DSNs in a DD and populates DDDSNS */<br />
/* QDSN - Make sure there are only one set of quotes */<br />
/* TSOTRAP - Capture the output from a TSO command in a stem */<br />
/* SAYDD - Print messages to the requested DD */<br />
/* JOBINFO - Get job-related data from control blocks */<br />
/* PTR - Pointer to a storage location */<br />
/* STG - Return the data from a storage location */<br />
/* VIODD - EXECIO a stem into a sequential dataset */<br />
/* MODTRACE - Module Trace */<br />
/* */<br />
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.<br />
55