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


//STEP1EXECPGM=IDCAMS 
//SYSPRINTDDSYSOUT=* 
//VOLDDUNIT=DISK,VOL=SER=DISK01,DISP=SHR 
//SYSINDD* 
 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から定義しています。


BEFORE PAGE

TOP PAGE