JCL example //STEP1 EXEC PGM=EQQEVPGM //STEPLIB DD DISP=SHR,DSN=OPCDEV.TEST.APFLIB //EQQMLIB DD DISP=SHR,DSN=OPCDEV.TEST.MSGS //EQQMLOG DD SYSOUT=* //SYSIN DD * SRSTAT 'TAPES' SUBSYS(EIDA) AVAIL(YES) DEVIATION(-1)