Purgeit.astran

************



This file is an AS transportable file which will create a procedure 

called purgeit when imported into AS. This procedure will purge all tables within the 

application code from which it is run. the application code may then be purged.



usage:



imp purgeit_run purgeit_pur purgeit_end app, pur



This will purge all AS tables and then purge the application -

ALL DATA WILL BE LOST!!!!!

NOTE: When downloading this file, please ensure that all transfers sre made in
BINARY mode, and when uploading to your VM/MVS System, please issue the command
SITE FIXRECFM 4096 before issuing the PUT command.

=========================================================================
IBM Accepts no responsibility for damage to or loss of data caused by this procedure.
By downloading and/or using this procedure you accept that you do so at your own risk.
=========================================================================


E-mail: as_development@vnet.ibm.com