Apparently the CIA recommends 6 cycles, but I used 10 last time (but
then, that's just the type of guy I am). :)
Peter
Here's my exec:
/*
***********************************************************************
* *
* *
* *
* *
* *
* *
* *
***********************************************************************
*/
address COMMAND
"CP SPOOL CONSOLE START TO MAINT"
range = "20A0-20AF"
"PIPE",
"cp QUERY" range,
"| split ,",
"| strip",
"| nlocate word 3 /FREE/",
"| nlocate word 3 /CP/",
"| nlocate word 3 /OFFLINE/",
"| nlocate word 3 /ATTACHED/",
"| stem dasd."
do while dasd.0 > 0
parse var dasd.1 . disk_address volid .
"CP ATTACH" disk_address "*"
if rc <> 0 then do
say "Could not attach" disk_address "return code" rc
iterate
end
say "===> Wiping" disk_address volid date() time()
"ERASE WIPEDISK DSF A"
"ERASE" disk_address "OUTPUT A"
"EXECIO 1 DISKW WIPEDISK DSF A 0 F 80 (STRING",
" TRKFMT UNIT("disk_address") VERIFY("volid") ERASEDATA",
"CYLRANGE(0,3338) CYCLES(10)"
"ICKDSF WIPEDISK DSF A" disk_address "OUTPUT A"
if rc <> 0 then do
say "Could not initialize" disk_address "return code" rc
end
"FINIS * * *"
"CP DETACH" disk_address
"PIPE",
"cp QUERY" range,
"| split ,",
"| strip",
"| nlocate word 3 /FREE/",
"| nlocate word 3 /CP/",
"| nlocate word 3 /OFFLINE/",
"| nlocate word 3 /ATTACHED/",
"| stem dasd."
end
queue "LOGOFF"
exit
-----Original Message-----
From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On
Behalf Of O'Brien, David W. (NIH/CIT) [C]
Sent: December 8, 2008 10:47
To: [email protected]
Subject: Re: Shark Retiring
What would be the minimum acceptable value for CYCLES(x) to ensure data
was not retrievable?
________________________________________
From: The IBM z/VM Operating System [EMAIL PROTECTED] On Behalf
Of Aria Bamdad [EMAIL PROTECTED]
Sent: Monday, December 08, 2008 10:36 AM
To: [email protected]
Subject: Re: Shark Retiring
You can try using ICKDSF and write patterns of data on it to clear what
was there. This may not be good enough for some organizations but
is good enough for most. You can try something like the following:
TRKFMT UNIT(xxx) NVFY ERASEDATA CYLRANGE(0000,xxxx) CYCLES(x)
Aria.
On Mon, 8 Dec 2008 09:52:29 -0500 Mary Zervos said:
>We are about to retire a 2105-F20 Shark, which will be resold. The
best
>way to totally delete all our data from the Shark?
>
>Thanks,
>
>Mary Zervos
>Systems Programmer
>Binghamton University
>
The information transmitted is intended only for the person or entity to which
it is addressed and may contain confidential and/or privileged material. Any
review retransmission dissemination or other use of or taking any action in
reliance upon this information by persons or entities other than the intended
recipient or delegate is strictly prohibited. If you received this in error
please contact the sender and delete the material from any computer. The
integrity and security of this message cannot be guaranteed on the Internet.
The sender accepts no liability for the content of this e-mail or for the
consequences of any actions taken on the basis of information provided. The
recipient should check this e-mail and any attachments for the presence of
viruses. The sender accepts no liability for any damage caused by any virus
transmitted by this e-mail. This disclaimer is property of the TTC and must
not be altered or circumvented in any manner.
