Re: How do I wipe out the data

[Pete Hall <peteh@xxxxxxxxxx>]

At 15:50 10/29/1998 , Glenn Gundermann wrote:
>For a 9402-400 V3R7 .....
>Can anyone tell me how to wipe out the data from my AS/400 before it
>gets picked up by IBM?  It's getting returned to IBM Leasing (now called
>IBM Financing).

Login as QSECOFR. Crank up WRKLIBPDM *ALLUSR and take option 4 for all of the 
non-IBM libraries. I think there's a function key to submit the commands. If 
you're using QS36F, you can use CLRLIB on it. WRKOUTQ *ALL and manually issue 
CLROUTQ commands for anything that has more than zero entries in it. DLTOUTQ if 
you like after they're all empty. WRKOBJPDM OBJTYPE(*DEVD) and delete all 
devices except DSP01. WRKOBJPDM OBJTYPE(*CTLD) and delete away. Do the same for 
*LIND objects. WRKUSRPRF and delete all user profiles that don't begin with Q. 
Not a comprehensive list, but that's all that I can think of that might make a 
difference.


Pete Hall
peteh@inwave.com 
http://www.inwave.com/~peteh/

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---