Change Special Resource

The following code is used to change SR to Unavailable.

//JOBxxx JOB ...
// SET OUTP=*
//*----------------------------------------
//* CHANGE SPECIAL RESOURCE TO UNAVAILABLE
//*----------------------------------------
//*
//STEP010 EXEC PGM=EQQEVPGM
//EQQMLIB DD DISP=SHR,DSN=EQQ.SEQQMSG0
//EQQMLOG DD SYSOUT=&OUTP
//SYSUDUMP DD SYSOUT=&OUTP
//SYSPRINT DD SYSOUT=&OUTP
//SYSIN DD *
SRSTAT 'SR.SR01' AVAIL(NO) SUBSYS(OPCx)
//