Mary,
Thanks a lot for your reply.
Regards,
Jags
On Mon, May 16, 2011 at 6:46 PM, Mary Anne Matyaz <maryanne4...@gmail.com>wrote:
> 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
