REM DDL Script to unload the dictionary cache for DUL8 (Oracle8)
REM !!will work for non-migrated databases only!!
REM if you experience problems running this file, you may have to use the
REM generic bootstrap procedure.
REM for this start with:
REM DUL> scan database;
REM restart DUL
REM DUL> bootstrap; and follow the instructions given at each step

REM force the settings, to get the desired output format 
alter session set export_mode = false;
alter session set ldr_phys_rec_size = 0;
alter session set ldr_enclose_char = """" ;
alter session set file = "" ;

unload table OBJ$ ( OBJ# number, DATAOBJ# ignore, OWNER# number,
	NAME varchar2(30), NAMESPACE ignore, SUBNAME varchar2(30), TYPE# number)
	storage( segobjno 18 file 1);

unload table TAB$( OBJ# number, DATAOBJ# number,
	TS# number, FILE# number, BLOCK# number,
	BOBJ# number, TAB# number, COLS number, CLUCOLS number,
	pctfree$ ignore, pctused$ ignore, initrans ignore, maxtrans ignore,
	flags ignore, audit$ ignore, rowcnt ignore, blkcnt ignore,
	empcnt ignore, avgspc ignore, chncnt ignore, avgrln ignore,
	avgspc_flb ignore, flbcnt ignore,
	analyzetime ignore, samplesize ignore,
	degree ignore, instances ignore,
	intcols ignore, kernelcols ignore, property number)
	cluster  C_OBJ#(OBJ#)
	storage ( tabno 1 segobjno 2 file 1)
;

unload table COL$ ( OBJ# number, COL# number , SEGCOL# number,
	SEGCOLLENGTH ignore, OFFSET ignore, NAME char(30),
	TYPE# number, LENGTH number, FIXEDSTORAGE ignore,
	PRECISION# ignore, SCALE ignore, NULL$ ignore, DEFLENGTH ignore,
	DEFAULT$ ignore, INTCOL# number, PROPERTY number)
	cluster C_OBJ#(OBJ#)
	storage( tabno 5 segobjno 2 file 1)
;

unload table USER$( USER# number, NAME varchar2(30))
	cluster C_USER#(USER#)
	storage(tabno 1 segobjno 10 file 1)
;

unload table TABPART$( OBJ# number, DATAOBJ# number, BO# number, PART# number,
	HIBOUNDLEN ignore, SPARE3 ignore, TS# number, FILE# number, BLOCK# number)
	storage( segobjno 180 file 1)
;

unload table IND$( BO# number, OBJ# number,
	DATAOBJ# number, TS# number, FILE# number, BLOCK# number,
	INDMETHOD# ignore, COLS number, PCTFREE$ ignore, INITRANS ignore,
	MAXTRANS ignore, PCTTHRESH$ ignore, 
	TYPE# number, PROPERTY number)
	cluster  C_OBJ#(BO#)
	storage ( tabno 3 segobjno 2 file 1)
;

unload table ICOL$( BO# number, OBJ# number, COL# number, POS# number)
	cluster  C_OBJ#(BO#)
	storage ( tabno 4 segobjno 2 file 1)
;

unload table LOB$( OBJ# number, COL# number, INTCOL# ignore,
    lobj# number, part# ignore, ind# number, 
    ts# number, file# number, block# number)
	cluster  C_OBJ#(OBJ#)
	storage ( tabno 8 segobjno 2 file 1)
;

REM restart and load the dictionary in the cache
exit