How to submit a Stacked JCL in USS through a REXX whos CGI?

Naldoven · New User Joined: 07 Jun 2006 Posts: 6

I have to write a Program to Kill the TSO Session from our Intranet. I wrote a Macro in rexx to do this in the MVS itself... no problems... now i had to use REXX as a CGI in the USS (Unix) Environement. Now my question is how i can submit stacked Job? this is the way i done this:

QUEUE "//ICKILUSE JOB (SSP,M),'SES 3400',CLASS=T,"
.
.
.
.
QUEUE "//*"
QUEUE "$$"
address tso "SUBMIT * END($$)"

was en example i found here in the Forum!
the addres TSO instruction doesnt work in USS Environement

superk · Posted: Mon Jun 19, 2006 9:24 pm

The best and easiest way that I can think of to submit a job from the USS environment is to use FTP:

ftp mainframe.ip.address or domain.name
>userid (must match the jobname in the JOB statement)
>password
>ascii
>filetype=jes

>put local.file.containing.JCL

or

>get remote.dataset.containing.JCL

>quit

Naldoven · New User Joined: 07 Jun 2006 Posts: 6

Found out how to submit a Job =) When ya use REXX as a CGI you can submit jobs through this command

say submit('outline.');

outline. is the stack Variable who contains the JCL (like the queue instruction). But i found a little problem. I submit the job from our Webserver S51(Development) and want to route it throught this JCL statements

//*ROUTE XEQ BDTR1N
//*MAIN CLASS=S11

to the S11(Productive) Machine to cancel the session of a user on that machine. But the interpreter ignores the //*ROUTE instruction... anyone done this before? and have a helping hand for me?

Naldoven · New User Joined: 07 Jun 2006 Posts: 6

Here the REXX CGI as a print screen

Naldoven · New User Joined: 07 Jun 2006 Posts: 6

it is with the //*ROUTE XQA Instruction
it works now ;-)

Greets