The COPYDISK EXEC

---

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 

---