Jags,
Modify ISP@MSTR at the line:
&ZSEL = TRANS ( TRUNC (&ZCMD,'.')
to add the following line:
M,'CMD(%MQSTART)'
Create rexx MQSTART in a searchable sysproc library:
/*rexx */
address ISPEXEC
"LIBDEF ISPPLIB DATASET ID('SYS1.SCSQPNLE')"
"LIBDEF ISPTLIB DATASET ID('SYS1.SCSQTBLE')"
"LIBDEF ISPMLIB DATASET ID('SYS1.SCSQMSGE')"
ADDRESS TSO '%CSQOREXX'
address TSO
"ALTLIB DEACTIVATE APPLICATION(EXEC)"
address ISPEXEC
"LIBDEF ISPPLIB"
"LIBDEF ISPTLIB"
"LIBDEF ISPMLIB"
"LIBDEF ISPSLIB"
exit
You can also just issue TSO MQSTART. Assuming you have MQSTART in the search
order.
Alternately, if you have the MQ libraries in your concatenation already,
and/or don't care to libdef, you can simply issue:
TSO CSQOREXX
or change ISP@MSTR to have:
M,'CMD(%CSQOREXX)'
Mary Anne
----------------------------------------------------------------------
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
