The following JCL is used to change the status of an IMOD:
//*JOBCARD
// EXEC PGM=SRVMAINT
//SYSPRINT DD SYSOUT=*
//ISRVLOG DD SYSOUT=*
//ISETNAME DD DISP=SHR,DSN=YOUR.ISETNAME
//SYSIN DD
SSNAME ISRV
NAME_LIST &LIST1 CLEAR
NAME_LIST &LIST1 INCLUDE ISETNAME /&/
CHANGE IMOD &LIST1 IN ISETNAME STATUS PROD
/*
Job abends with 0C4.
08.01.12 J0121099 IEA995I SYMPTOM DUMP OUTPUT 340
340 SYSTEM COMPLETION CODE=0C4 REASON CODE=00000004
340 TIME=08.01.12 SEQ=05621 CPU=0000 ASID=00FA
340 PSW AT TIME OF ERROR 079C3000 A9E5533A ILC 6 INTC 04
340 ACTIVE MODULE ADDRESS=00000000_29E00000 OFFSET=0005533A
340 NAME=SRVMAINT
Release: 14.0
Component: Global Subsystem for MVS (CA-GSS)
The syntax of //SYSIN DD requires an * after DD to begin an in-stream data set.
No more abends when using //SYSIN DD *
//SYSIN DD *
SSNAME ISRV
NAME_LIST &LIST1 CLEAR
NAME_LIST &LIST1 INCLUDE ISETNAME /&/
CHANGE IMOD &LIST1 IN ISETNAME STATUS PROD
/*