Re: Erasing DASD-decommission an AS400/iSeries/System i -- MIDRANGE-L

Here it is! It only supports 10 billion minus 1 records but I'm sure youcan up that if needed!


 - Larry

H/TITLE Write 00s or FFs to 1K RECL FILEH**** ****

H***                           DODERASE                                ***
H**                                                                     **
H*                                                                       *
H*                 WRITE 00S AND FFS TO DISK TO ERAGE ALL DATA           *
H*                                                                       *
H*                 CREATED           12/DEC/06  (LDB)                    *
H**                                                                     **
H***                                                                   ***
H****                                                                 ****
H*                                                                       *
H* CHANGE HISTORY:                                                       *
H*                                                                       *
H* 12/DEC/06 LDB - CREATED                                               *
H*                                                                       *
H* PROGRAM FUNCTION:                                                     *
H* THIS PROGRAM WRITES EITHER 00S OR FFS TO A FILE OF 1024 BYTES.        *
H*                                                                       *
H* FILE USAGE:                                                           *
H*  NAME         DESC                    USE                             *
H*  ONEKFILE     1024 BYTE FIELD FILE    WRITE/UPDATE                    *
H*                                                                       *
H* INDICATOR USAGE:                                                      *
H*  *NONE*                                                               *
H*                                                                       *
H*************************************************************************
F*                                                                       *

FONEKFILE UF A E DISK*D DSD MEGFF 1 DIM(1024)D DSFFS 1 1024D DSD MEG00 1 DIM(1024)D DS00S 1 1024DCOUNTDS DSD RECDS 1 10D COUNT 1 10 0*** ENTRY*C *ENTRY PLISTC PARM FFOR00 1C PARM UPORAD 1C PARM RECCNT 10*** INIT: SET UP THE ALL FF AND ALL 00 FIELDS*C MOVE RECCNT RECDSC BITOFF '01234567' ALL00S 1C BITON '01234567' ALLFFS 1C MOVE ALL00S MEG00C MOVE ALLFFS MEGFFC*C** Loop The requested record count. Either updating or adding as needed.C*C UPORAD IFEQ 'U'C READ ONEKFILE 90C *IN90 DOUEQ *ONC FFOR00 IFEQ 'F'C MOVE DSFFS ONEKFLC ELSEC MOVE DS00S ONEKFLC ENDIFC UPDATE ONEKFILRC READ ONEKFILE 90C ENDDOC GOTO $DAENDC ENDIFC*C UPORAD IFEQ 'A'C Z-ADD *ZERO CURR 10 0C FFOR00 IFEQ 'F'C MOVE DSFFS ONEKFLC ELSEC MOVE DS00S ONEKFLC ENDIFC CURR DOUGE COUNTC WRITE ONEKFILRC ADD 1 CURRC ENDDOC GOTO $DAENDC ENDIFC*C $DAEND TAGC MOVE *ON *INLRC*

Jerry Draper wrote:

Sure, love to see it.

JErry

Larry Bolhuis wrote:
Sure I got the program. I called mine DODERASE. I can post the sillything if you'd like, it's about 90 lines long including comments. I'mguessing a good programmer could have done it in 15 or 20 lines.
I've not erases any full systems with it yet but I ran some tests onFrankie and got millions of updates per hour. On a bigger box you couldalso create multiple files and run multiple copies of the program,perhaps one per CPU for example to increase velocity.
  - L