I don't use it much, but this is what I use for my backpocket copy of sys
res
before I go off to Disaster Recovery exercises (next week).
/****************************************************
Use the External 3490 tape drives with stackers
****************************************************/
TRACE Off
rtc = 0
parse upper arg reqaddr reqvol retpd tapeaddr .
'CP SPOOL CONS CONT START TO U8803KT NAME' reqvol 'DDRDUMP'
if retpd = '*' then retpd = 10
expdt = date('S',date('B')+retpd,'B')
/* acquire the requested dasd */
'CP LINK VMDASD' reqaddr '5FF RR'
rtc = rc
if rtc ¬= 0 then signal exit
Parse value diag(8,'CP QUERY VIRTUAL 5FF') with . . . target .
if target ¬= reqvol then do
rtc = 8
'CP WARNING OP DDRDUMP: Incorrect volume requested,' ,
reqaddr reqvol target
signal exit
end
/* acquire tape drive */
dsn = 'DDRDUMP of' reqvol
'CP ATTACH' tapeaddr '* 0181'
if rc ¬= 0 then do; rtc = rc; signal exit; end;
Queue 'SYSPRINT CONS'
QUEUE 'INPUT 05FF 3390' reqvol
Queue 'OUTPUT 0181 3490'
Queue 'DUMP ALL'
Queue ' '
Address Command 'DDR'
rtc = rc
Exit:
'CP WARNING OP DDRDUMP: RC =' rtc
'CP LOGOFF'
Exit
/Tom Kern
/U.S. Dept of Energy
/301-903-2211 (Office)
/301-905-6427 (Mobile)
On Fri, 26 Feb 2010 09:04:57 -0600, Billy Bingham
<[email protected]> wrote:
>Hello all,
>
>Not being the bestest REXX programmer or I would do it myself :) Does
anyone have a
>REXX that invokes DDR to dump DASD to tape that they wouldn't mind shari
ng?
>
>
>I appreciate it,
>
>Billy
>
