Monday, September 26, 2011

JCL: How to delete all members in a PDS


The below job deletes all the members of a PDS.

//STEP0200 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//IN  DD DUMMY
//OUT DD DSN=XXX.YYY.ZZZ,DISP=OLD
//SYSIN DD *
REPRO IFILE(IN) OFILE(OUT) REPLACE
/*

No comments:

Post a Comment

Note: Only a member of this blog may post a comment.