But aren't CONSOLE and CONSPROF TSO commands? I don't think that first
ADDRESS CONSOLE should be there at all.
On Thu, Jul 28, 2011 at 8:03 AM, McKown, John <john.mck...@healthmarkets.com
> wrote:
> I noticed that you did:
>
> ADDRESS CONSOLE
>
> on a line by itself. That means that all subsequent commands go to the
> CONSOLE interface. But you then to TSO commands such as ALLOCATE and EXECIO.
> Those are not being passed to the TSO command interface, but to the CONSOLE
> interface.
>
> ADDRESS CONSOLE
> "CONSOLE ACTIVATE NAME(A251)"
> "CONSPROF SOLDISPLAY(NO) UNSOLDISPLAY(NO) SOLNUM(300) UNSOLNUM(300)"
> "ALLOC DA('A251804.SPOOL(SIN)') F(ISFIN) SHR REU"
>
> Change this to:
>
> ADDRESS CONSOLE
> "CONSOLE ACTIVATE NAME(A251)"
> "CONSPROF SOLDISPLAY(NO) UNSOLDISPLAY(NO) SOLNUM(300) UNSOLNUM(300)"
> ADDRESS TSO
> "ALLOC DA('A251804.SPOOL(SIN)') F(ISFIN) SHR REU"
>
> --
> John McKown
> Systems Engineer IV
> IT
>
> Administrative Services Group
>
> HealthMarkets®
>
> 9151 Boulevard 26 . N. Richland Hills . TX 76010
> (817) 255-3225 phone .
> john.mck...@healthmarkets.com . www.HealthMarkets.com
>
> Confidentiality Notice: This e-mail message may contain confidential or
> proprietary information. If you are not the intended recipient, please
> contact the sender by reply e-mail and destroy all copies of the original
> message. HealthMarkets® is the brand name for products underwritten and
> issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake
> Life Insurance Company®, Mid-West National Life Insurance Company of
> TennesseeSM and The MEGA Life and Health Insurance Company.SM
>
>
>
> > -----Original Message-----
> > From: IBM Mainframe Discussion List
> > [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of jagadishan perumal
> > Sent: Thursday, July 28, 2011 6:20 AM
> > To: IBM-MAIN@bama.ua.edu
> > Subject: REXX code on JES2
> >
> > Hi,
> >
> > I have written a REXX to purge few jobs but I am getting an
> > error as RC-3(
> >
> > which means host command not found)
> >
> >
> >
> > /*REXX*/
> >
> > ADDRESS TSO
> >
> > "ALLOC DA('A251804.SPOOL(SIN)') F(ISFIN) SHR REU"
> >
> > "ALLOC DA('A251804.SPOOL(SOUT)') F(ISFOUT) SHR REU"
> >
> > ADDRESS SDSF "ISFEXEC SR"
> >
> > IF RC=0 THEN
> >
> > DO
> >
> > ADDRESS CONSOLE
> >
> > "CONSOLE ACTIVATE NAME(A251)"
> >
> > "CONSPROF SOLDISPLAY(NO) UNSOLDISPLAY(NO) SOLNUM(300) UNSOLNUM(300)"
> >
> > "ALLOC DA('A251804.SPOOL(SIN)') F(ISFIN) SHR REU"
> >
> > "ALLOC DA('A251804.SPOOL(SOUT)') F(ISFOUT) SHR REU"
> >
> > "EXECIO * DISKR ISFOUT (STEM LINES. FINIS"
> >
> > DO K = 1 TO LINES.0 IF (WORDPOS('SHORTAGE',LINES.K) ¬= 0) THEN
> >
> > DO
> >
> > ADDRESS CONSOLE
> >
> > "$P JOBQ,HOURS>15"
> >
> > SAY "THE COMMAND $P JOBQ,HOURS>15 EXECUTED"
> >
> > ADDRESS TSO
> >
> > "FREE F(SIN)"
> >
> > "FREE F(SOUT)"
> >
> > "CONSOLE DEACTIVATE"
> >
> > EXIT
> >
> > END
> >
> > ND
> >
> > SAY "NO RESOURCE SHORTAGE"
> >
> > ADDRESS TSO
> >
> > "FREE F(SIN)"
> >
> > "FREE F(SOUT)"
> >
> > "CONSOLE DEACTIVATE"
> >
> >
> >
> >
> >
> > Could anyone please guide me or advise me regarding the above code
> >
> >
> >
> > Regards,
> >
> > Jags
> >
> > ----------------------------------------------------------------------
> > 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
>
CONFIDENTIALITY/EMAIL NOTICE: The material in this transmission contains
confidential and privileged information intended only for the addressee.
If you are not the intended recipient, please be advised that you have
received this material in error and that any forwarding, copying, printing,
distribution, use or disclosure of the material is strictly prohibited.
If you have received this material in error, please (i) do not read it,
(ii) reply to the sender that you received the message in error, and
(iii) erase or destroy the material. Emails are not secure and can be
intercepted, amended, lost or destroyed, or contain viruses. You are deemed
to have accepted these risks if you communicate with us by email. Thank you.
----------------------------------------------------------------------
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
