How to do Delete/Define with using IDCAMS using batch JCL (z/VSE)

jcl vsam
user2155147 picture user2155147 · Aug 30, 2013 · Viewed 23.6k times · Source

I have a sample code of delete/define using IDCAMS in z/OS, but I dont think it will work on z/VSE. Can someone help me convert this? The file created should be 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

James Anderson picture James Anderson · Aug 30, 2013

Your IDCAMs statements should be pretty much the same but the JCL is completely different.

    * $$ 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)
/

Example taken from the extremely useful redbook

Related questions

JCL SYNCSORT: OMIT and INCLUDE are not interchangeable?

I'm getting different output for these two sort cards, can someone tell me why? 1. INCLUDE COND=((1,3,CH,NE,C'ABC',AND,5,3,CH,NE,C'PQR'),OR, (1,3,CH,NE,C'CAB'),OR, (1,3,CH,NE,C'CBA'),OR, (1,3,CH,NE,C'ABC',AND,5,3,CH,NE,C'PQR')) SORT …

Read More
jcl sort to divide Mainframe Dataset

I am trying to divide MF PS into several datasets. e.g. If I have a Dataset containg 600 recs, I want to divide this into 6 files with 100 records each. Is it possible to do this using JCL sort?

Read More
What's the difference between SYSOUT and SYSPRINT of a job?

While coding a JCL, we give SYSOUT and SYSPRINT DDs. Which type of output goes to SYSOUT and what else to SYSPRINT?

Read More