/* Copy Minidisk  ****************************************************
 * :nick.COPYMDISK
 * :title.COPYMDSK EXEC - copy minidisk w/FLASHCOPY, if it fails, try DDR
 * :version.6.1.0        :date.08/11/12   :scp.z/VM. CMS 8+
 * :oname.NOVAK P. W.                     :onode.LOTUS    :ouser.PWNOVAK
 * :aname.MACISAAC M. (ex-IBM employee)   :anode.         :auser.
 * :bname.                                :bnode.         :buser.
 * :support.N    :doc.SCRIPT       :lang.REXX       :source.Y
 * :sw.
 * :hw.Any
 * :kwd.redbook minidisk copymdisk cpmdsk cpmd
 *------------------------------------------------------------------
 THE PROGRAM IS PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR
 CONDITIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT
 LIMITATION, ANY WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT,
 MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
 NEITHER RECIPIENT NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR
 ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED
 AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
 OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF
 THE USE OR DISTRIBUTION OF THE PROGRAM OR THE EXERCISE OF ANY RIGHTS
 GRANTED HEREUNDER, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES
 *********************************************************************/
/*  Parm 1: vaddr of source minidisk                                 */
/*  Parm 2: vaddr of target minidisk                                 */
Address 'COMMAND'
Parse Arg source target .
Say
Say 'Copying minidisk' source 'to' target '...'
'CP FLASHCOPY' source '0 END' target '0 END'
If (rc \= 0) Then Do                  /* Fallback to DDR             */
  Say 'FLASHCOPY failed, falling back to DDR ...'
                                      /* Queue up DDR commands       */
  Queue 'SYSPRINT CONS'               /* Don't print to file         */
  Queue 'PROMPTS OFF'                 /* Don't ask 'Are you sure?'   */
  Queue 'IN' source '3390'            /* Input minidisk              */
  Queue 'OUT' target '3390'           /* Output minidisk             */
  Queue 'COPY ALL'                    /* Copy all contents           */
  Queue ' '                           /* Empty record ends DDR       */
  'DDR'
  retVal = rc
  End
Else retVal = rc
Say 'Return value =' retVal
Return retVal