/* 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