Hello Mr. Thomas,
Thanks a lot for your Help.
Now, We can use our REXX program, with Dynamic Definitions.
Very good and interesting your material.
Our REXX run so:
/* rexx */
TRACE R
address 'ISPEXEC' 'LIBDEF ISPMLIB LIBRARY ID()'
address 'ISPEXEC' 'LIBDEF ISPPLIB LIBRARY ID()'
"ALTLIB ACTIVATE APPL(CLIST) DA(WMQ600.SCSQEXEC)"
"ALLOC DDNAME(WMQMMLIB) DSNAME('WMQ600.ACSQMSGE') SHR"
"ALLOC DDNAME(WMQMPLIB) DSNAME('WMQ600.ACSQPNLA') SHR"
"ALLOC FI(SYSUEXEC) SHR DA('WMQ600.SCSQEXEC')"
"ALLOC FI(SYSUPROC) SHR DA('WMQ600.SCSQPROC')"
address 'ISPEXEC' 'LIBDEF ISPMLIB LIBRARY ID(WMQMMLIB)'
address 'ISPEXEC' 'LIBDEF ISPPLIB LIBRARY ID(WMQMPLIB)'
address 'ISPEXEC' "SELECT CMD(%CSQOREXX WMQ600) NEWAPPL(MQP1) PASSLIB"
address 'ISPEXEC' 'LIBDEF ISPMLIB LIBRARY ID()'
address 'ISPEXEC' 'LIBDEF ISPPLIB LIBRARY ID()'
Thanks again, and Best Regards.
Sergio
> Date: Fri, 7 Jan 2011 09:33:39 -0500
> From: [email protected]
> Subject: Re: Question About run REXX Under TSO
> To: [email protected]
>
> ----- Original Message -----
> From: "Sergio Lima" <[email protected]>
> Newsgroups: bit.listserv.ibm-main
> Sent: Friday, January 07, 2011 8:42 AM
> Subject: Question About run REXX Under TSO
>
>
> > Hello List,
> >
> > I'm tring use here, the REXX program CSQOREXX , under TSO.
> >
> > So, We insert in my procedure of LOGON the library's need for run this,
> > but something is wrong, and I can't see.
> >
> > Our procedure of LOGON is now this :
> >
> > //IKJSUP EXEC PGM=IKJEFT01,DYNAMNBR=500,PARM=ISPSUP
> > //STEPLIB DD DISP=SHR,DSN=DIT.SDITMOD1
> > // DD DISP=SHR,DSN=WMQ600.SCSQANLE
> > // DD DISP=SHR,DSN=WMQ600.SCSQAUTH
> > //SYSPROC DD DISP=SHR,DSN=CPAC.CMDPROC
> > //SYSEXEC DD DISP=SHR,DSN=WMQ600.SCSQEXEC
> > //ISPPLIB DD DISP=SHR,DSN=WMQ600.SCSQPNLA
> > // DD DISP=SHR,DSN=WMQ600.SCSQPNLE
> > //ISPLLIB DD DISP=SHR,DSN=WMQ600.SCSQAUTH
> > //SYSHELP DD DISP=SHR,DSN=SYS1.HELP
> > // DD DISP=SHR,DSN=SYS1.HELPENP
> > // DD DISP=SHR,DSN=ISP.SISPHELP
> > // DD DISP=SHR,DSN=ISF.SISFHELP
> > // DD DISP=SHR,DSN=SYS1.SBDTHELP
> > //SYSLBC DD DISP=SHR,DSN=SYS1.BRODCAST
> > //SYSPRINT DD TERM=TS,SYSOUT=*
> > //SYSTERM DD TERM=TS,SYSOUT=*
> >
>
> Sergio,
>
> You can run the MQ dialog dynamically without changing the logon proc. Take
> a look at my Dynamic ISPF SHARE presentation at my web site below. Let me
> know if you have any questions.
>
> Regards,
> Thomas Conley, President/CEO
> Pinnacle Consulting Group, Inc.
> 59 Applewood Drive
> Rochester, NY 14612-3501
> P: (585)720-0012
> F: (585)723-3713
> http://home.roadrunner.com/~pinncons/
>
>
> ----------------------------------------------------------------------
> 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
----------------------------------------------------------------------
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
