REM DDL Script to unload the dictionary cache for DUL V8 (Oracle 7)

REM force the settings, so I know what happens
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, OWNER# number, NAME varchar2(30),
	NAMESPACE ignore, TYPE number)
	storage( segobjno 17 file 1);

unload table TAB$( OBJ# number, TS# ignore, FILE# number, BLOCK# number,
	CLU# ignore, TAB# number, COLS number, CLUCOLS number)
	cluster  C_OBJ#(OBJ#)
	storage ( tabno 1 segobjno 1 file 1)
;

unload table COL$ ( OBJ# number, COL# number , SEGCOL# number,
	SEGCOLLENGTH ignore, OFFSET ignore, NAME char(30),
	TYPE# number, LENGTH number)
	cluster C_OBJ#(OBJ#)
	storage( tabno 5 segobjno 1 file 1)
;

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

REM restart and load the dictinary in the cache
exit