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.