如何通过批处理JCL (z/VSE)使用IDCAMS进行删除/定义

Question

我有一个在z/OS中使用IDCAMS进行删除/定义的示例代码，但我认为它不适用于z/VSE。有没有人能帮我转换一下？创建的文件应为VSAM-kSDS。

//VDFNDEL  JOB 1,SAMPLE,MSGCLASS=X
//STEP1    EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*    
//SYSIN    DD *    

 DELETE SAMPLE.DATA.VSAM CLUSTER

/*   
//STEP2    EXEC PGM=IDCAMS
//SYSPRINT DD *
//DATAIN   DD DISP=OLD,DSN=SAMPLE.SORTOUT 
//SYSIN    DD *

 DEFINE CLUSTER (NAME (SAMPLE.DATA.VSAM) -
           VOLUMES(WORK02) CYLINDERS(1 1) -
           RECORDSIZE (72 100) KEYS(9 8) INDEXED)

 REPRO INFILE(DATAIN) OUTDATASET(SAMPLE.DATA.VSAM) ELIMIT(200)

/*

Answer 1

您的IDCAMs语句应该大致相同，但JCL却完全不同。

    * $$ JOB JNM=OGDEN12,CLASS=0,DISP=D
// JOB OGDEN12
// DLBL OGDEN,'OGDEN.DATA.VSAM',,VSAM,CAT=VSESPUC
// EXEC IDCAMS,SIZE=AUTO
DELETE (OGDEN.DATA.VSAM) CLUSTER PURGE -
CATALOG(VSESP.USER.CATALOG)
/*
// EXEC IDCAMS,SIZE=AUTO
DEFINE CLUSTER(NAME(OGDEN.DATA.VSAM) -
FILE(OGDEN) -
RECORDS (2000 1000) -
TO (99366) -
INDEXED -
KEYS(9 8) -
RECORDSIZE(72 100) -
CONTROLINTERVALSIZE(4096) -
SPANNED -
SHR(4) -
VOLUMES (DOSRES,SYSWK1)) -
DATA (NAME (OGDEN.DATA.VSAM.@D@)) -
INDEX (NAME (OGDEN.DATA.VSAM.@I@)) -
CATALOG(VSESP.USER.CATALOG)
/

示例取自非常有用的redbook