Not sure the function is exactly correct but the logic maps what you had...

/* */
trace o
'CP SP P CL O'
'EXEC VMLINK MAINT 123' /* Why do you need this? It doesn't seem necessary */
'TAPE REW'
if Rc = 0 then
do
   'FILEDEF IN1 DISK SLES7 IMAGE A'
   'FILEDEF IN2 DISK SLES7 PARM A'
   'FILEDEF IN3 DISK SLES7 INITRD A'
   'FILEDEF OUT TAP1 (RECFM F BLOCK 1024 LRECL 1024 PERM'
   say 'Dumping Kernel to tape'
   'MOVEFILE IN1'
   say 'Dumping Parmfile to tape'
   'MOVEFILE IN2'
   say 'Dumping INITRD to tape'
   'MOVEFILE IN3'
   'TAPE RUN'
   say 'Done'
end
else
    say 'Attach tape as 181 and restart the EXEC'
'EXEC VMLINK MAINT 123 <DETACH>'
exit

Now, if you need a tape mark in between files then add 'TAPE WTM'.

----------------------------------------------------------------------
For LINUX-390 subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: INFO LINUX-390 or visit
http://www.marist.edu/htbin/wlvindex?LINUX-390

Reply via email to