IDCAMS

VSAMデータセットの作成。 MODEL指定が便利。

//STEP01  EXEC PGM=IDCAMS
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *
  DEFINE       CLUSTER( -
                  NAME(VSAM.DATA.SET) -
                  VOLUME(VOLSER) -
                  MODEL(MODEL.VSAM.DATA.SET) -
               ) -
               DATA(NAME(VSAM.DATA.SET.DATA)) -
               INDEX(NAME(VSAM.DATA.SET.INDEX)) -
               CATALOG(CATALOG.NAME)
/*

VSAMデータセットの印刷。

//STEP01  EXEC PGM=IDCAMS
//INDD01    DD DSN=VSAM.DATA.SET,DISP=SHR,AMP=AMORG
//EXDD01    DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *
  PRINT        INFILE(INDD01) -
               OUTFILE(EXDD01) -
               FROMKEY('00000100') -
               TOKEY('00000999') -
               DUMP
/*

VSAMデータセットの改名。

//STEP01  EXEC PGM=IDCAMS
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *
  ALTER        OLD.VSAM.DATASET -
               NEWNAME(NEW.VSAM.DATASET) ;
  ALTER        OLD.VSAM.DATASET.DATA -
               NEWNAME(NEW.VSAM.DATASET.DATA) ;
  ALTER        OLD.VSAM.DATASET.INDEX -
               NEWNAME(NEW.VSAM.DATASET.INDEX) ;
/*

VSAMデータセットの削除。

//STEP01  EXEC PGM=IDCAMS
//DD01      DD DISP=SHR,UNIT=3390,VOL=SER=VOLSER
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *
  DELETE  VSAM.DATA.SET -
          CLUSTER -
          FILE(DD01) -
          CATALOG(CATALOG.NAME)
/*

トップメニューへ