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

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

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

BEFORE PAGE

TOP PAGE