Hi forum.
I am trying to run a RMM command from a REXX program on batch mode, but get
this message:
EDG3001E DFSMSRMM SUBSYSTEM IS NOT ACTIVE
But when using it online it works fine.
Let me explain.
The REXX has coded an "RMM SD ..." instruction I want to be executed just to
get the datasets and some other values within a volser.
If I execute it into TSO ISPF command shell (option 6) : exec
'MYUSER.CNTL.LIBRARY(PRUEBA3)' 'VOL021', it shows me the correct output I want.
But if I try to execute it from batch :
//REXX1 EXEC PGM=IKJEFT01,REGION=0M
//SYSEXEC DD DSN=MYUSER.CNTL.LIBRARY,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTSIN DD *
EXEC 'MYUSER.CNTL.LIBRARY(PRUEBA3)' 'VOL021'
It shows this output message :
READY
EXEC 'MYUSER.CNTL.LIBRARY(PRUEBA3)' 'VOL021'
EDG3001E DFSMSRMM SUBSYSTEM IS NOT ACTIVE
READY
END
Is there some explanation or solution?
Thanks a lot once again
Enrique Montero
=====================================================================
Here is the rexx code I am using :
/*REXX*/
PARSE ARG VOLUMEN
CALL GENINFO VOLUMEN
RETURN
/* ************************************************** */
GENINFO : PROCEDURE
ARG VOLSER
SYSAUTH.EDGDATE = "EUROPEAN"
/*SAVE_PROMPT = PROMPT("OFF")
SAVE_MSG = MSG("OFF") */
COMANDO = "RMM SD DSN(*) VOLUME("VOLSER") LIMIT(*)"
ADDRESS TSO COMANDO
/* JUNK = MSG(SAVE_MSG) */
IF RC = 0 THEN
DO
DROP SYSAUTH.EDGDATE
DO DATASET = 1 TO [email protected]
SAY [email protected]" "[email protected]
END
SAY " "[email protected] "DATASETS ON VOLSER "VOLSER
END
ELSE DROP SYSAUTH.EDGDATE
/* JUNK = PROMPT(SAVE_PROMPT) */
RETURN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
