如何使用批处理JCL（z/VSE）使用IDCAMS进行删除/定义

我有一个在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)

/*

---

您的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)
/

---

从非常有用的

中选取的示例，您的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)
/

---

从非常有用的

中选取的示例您的站点中肯定有人曾经这样做过吗？你可能需要应用一些“本地标准”——JCL也完全不同。真的，这不是你应该上网的原因。如果你从“样本”开始编目，你可能会遇到“安全”问题，“只是从互联网上取旧东西”可能不是一个好借口。你的网站肯定有人做过这件事？你可能需要应用一些“本地标准”——JCL也完全不同。真的，这不是你应该上网的原因。如果你从“样本”开始编目，你可能会遇到“安全”问题，“只是从互联网上拿走旧东西”可能不是一个好借口。我知道这是IBM的错，但是这个例子可以/应该使用一个步骤，如果设置，LASTCC和MAXCC以可控的方式做每件事。@Bill Woodger——没错，但我没有；本世纪我没有使用过VSE，也不知道任何地方还有人在使用它，所以我手头没有任何“真实”的例子。我想我至少可以把海报指向正确的方向。对不起，我意识到我不清楚。我的意思是在IDCAMS控制卡中，而不是在JCL中。与z/OS一样，可以快速确认这些细节：我知道这是IBM的错，但该示例可以/应该使用一个步骤，使用IF、SET、LASTCC和MAXCC以可控的方式完成所有操作。@Bill Woodger——没错，但我没有；本世纪我没有使用过VSE，也不知道任何地方还有人在使用它，所以我手头没有任何“真实”的例子。我想我至少可以把海报指向正确的方向。对不起，我意识到我不清楚。我的意思是在IDCAMS控制卡中，而不是在JCL中。与z/OS相同，以快速确认这些细节：