■  VSAM(ESDS)DEL/DEFサンプル

//STEP1		EXEC	PGM=IDCAMS
//SYSPRINT		DD	SYSOUT=*
//VOL		DD	UNIT=DISK,VOL=SER=DISK01,DISP=SHR
//SYSIN		DD	*
	DEL TST.VSAM.FILE02 PURGE CL
	DEF CL (NAME(TST.VSAM.FILE02) VOL(DISK01) FILE(VOL)) +
		DATA (NAME(TST.VSAM.FILE02.DATA) +
		VOL(DISK01) CYL(1 1) FILE(VOL) +
		RECSZ(256 4000) CISZ(4096) BIND +
		SHR(3 3) WCK NONINDEXED REUSE)
/*

※ＥＳＤＳのクラスターを定義します。NONINDEXEDがその証拠です。

BEFORE PAGE

TOP PAGE