■  ＶＳＡＭのリカタログサンプル

//STEP1		EXEC	PGM=IDCAMS
//SYSPRINT		DD	SYSOUT=*
//SYSIN		DD	*
	DEF CL (NAME(TST.VSAM.FILE01) VOL(DISK01) +
		CISZ(4096) REUSE +
		SHR(2 3) RECATALOG) +
		DATA (NAME(TST.VSAM.FILE01.DATA) +
		KEYS(11 4) +
		RECSZ(256 4000) +
		IX (NAME(TST.VSAM.FILE01.INDEX) +
		IMBD )
/*

※いつのまにか（？）カタログが切れてしまったＶＳＡＭ（この例はＫＳＤＳ）をリカタログします。

BEFORE PAGE

TOP PAGE