//JOB3     JOB   accounting information,REGION=nnnnK
//STEP1    EXEC  PGM=ADRDSSU
//SYSPRINT DD    SYSOUT=A
//SYSIN    DD    *
 PRINT INDYNAM(338000) /* ALLOC VOL 338000 DYNAMICALLY  */ -
   DS(PARTS.VSAM1.INDEX) /* DATA SET THAT HAS BAD TRACK */ -
   WAIT(0,0)           /* DO NOT WAIT IF ENQ FAILS      */ -
   TOL(ENQF)           /* IGNORE ENQ FAILURES           */ -
   PSWD(PARTS.VSAM1/USERPSWD) /* PASSWORD FOR CLUSTER   */
/*