■ VSAM(KSDS)DEL/DEFサンプル
//STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //VOL DD UNIT=DISK,VOL=SER=DISK01,DISP=SHR //SYSIN DD * DEL TST.VSAM.FILE01 PURGE CL DEF CL (NAME(TST.VSAM.FILE01) VOL(DISK01) FILE(VOL) REUSE) + DATA (NAME(TST.VSAM.FILE01.DATA) + VOL(DISK01) KEYS(11 4) CYL(1 1) FILE(VOL) + RECSZ(256 4000) CISZ(4096) BIND + SHR(3 3) WCK INDEXED) + IX (NAME(TST.VSAM.FILE01.INDEX) + VOL(DISK01) CYL(1 1) SHR(3 3) REPL WCK IMBD UNIQUE BIND FILE(VOL)) /*
※KSDSのクラスターを定義します。INDEXEDがその証拠です。
※この例はVBのレコード形式です。==>KEYをオフセット4から定義しています。