| < Day Day Up > |
|
This REXX EXEC simply copies one quiesced DASD to another:
/* copydisk exec */ parse upper arg indisk outdisk . say "Copy minidisk" indisk "to" outdisk||"?" pull answer firstChar = substr(answer, 1, 1) if ((answer = 'y') | (answer = 'Y')) then do queue "SYSPRINT CONS" queue "INPUT" indisk "3390" queue "OUTPUT" outdisk "3390" queue "COPY ALL" queue "YES" queue "YES" queue "" DDR
| < Day Day Up > |
|