Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Job Submiting from Rexx program

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
srinivasbathimmi

New User


Joined: 10 May 2006
Posts: 13

PostPosted: Thu Dec 09, 2010 2:11 pm    Post subject: Job Submiting from Rexx program
Reply with quote

Hi,

I have a requirement like display a panel and based on values entered in the panel, I need to modify few jcl statments in one jcl (exist in a PDS) and submit the job.

Code I used:

DO I = 1 TO ARR.0
IF SUBSTR(ARR.I,1,2) <> '//' & POS('TEST.TXT',ARR.I) > 0 THEN
DO
ARR.I = REPLACESTR(ARR.I,"TEST.TXT",SSHEET)
CALL REPLACESTR
QUEUE ARR.I
END
ELSE
QUEUE ARR.I
END
QUEUE "$$"
ADDRESS TSO "SUBMIT * END($$)"


Above code is working fine and the job is getting sucessfully executed.
The only concern here is before submiting the job my REXX program prints the below message and submits job only after I press the enter key

ENTER INPUT JOB STREAM:
***

Could you please let me know how can I aviod the above message and submit the job automatically
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Dec 09, 2010 2:21 pm    Post subject:
Reply with quote

By using ISPF file tailoring services.

Why oh why do people insist on doing things the wrong way.
ISPF file tailoring with pre defined skeletons is oh so easy.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6968
Location: porcelain throne

PostPosted: Thu Dec 09, 2010 2:23 pm    Post subject:
Reply with quote

I found that having a SAY statement (job autogenerated by blah blah blah)
following the SUBMIT solved the problem of having to press the enter key.

sort of a kinky work-a-round, but it works.
Back to top
View user's profile Send private message
srinivasbathimmi

New User


Joined: 10 May 2006
Posts: 13

PostPosted: Thu Dec 09, 2010 2:35 pm    Post subject: Reply to: Job Submiting from Rexx program
Reply with quote

expat,

I am not aware of ISPF file tailoring services. If possible can you please provide me any document/link.



dbzTHEdinosauer,

I tried with SAY statement following the SUBMIT but it's not working for me.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Dec 09, 2010 2:45 pm    Post subject:
Reply with quote

All TSO / REXX / CLIST / ISPF documentation can be reached from the sticky topic in the CLIST & REXX forum.

And probably from the link at the top of each page marked "IBM Manuals"
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6968
Location: porcelain throne

PostPosted: Thu Dec 09, 2010 2:48 pm    Post subject:
Reply with quote

here is the z/OS ISPF LIBRARY
http://www-306.ibm.com/software/awdtools/ispf/library/
Back to top
View user's profile Send private message
srinivasbathimmi

New User


Joined: 10 May 2006
Posts: 13

PostPosted: Thu Dec 09, 2010 3:10 pm    Post subject: Reply to: Job Submiting from Rexx program
Reply with quote

Expat,

I have gone through the link, also searched few postings and got the below code to submit the job.

"FTOPEN TEMP"
"FTINCL XXXX"
"FTCLOSE"
"VGET ZTEMPF"
ADDRESS TSO "SUBMIT '"ZTEMPF"'"

XXXX job gets submitted as is but in my requirement I have to do few jcl statement modifications and the modified jcl needs to be submitted and my original jcl should not be changed.

Can you please let me know the procedure how to achieve this using ISPF tailoring services/any other method.

Thanks in Advance.

Regards,
Srini.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Thu Dec 09, 2010 3:17 pm    Post subject: Reply to: Job Submiting from Rexx program
Reply with quote

Quote:
Can you please let me know the procedure how to achieve this using ISPF tailoring services

the ISPF manual will tell You all You might want to know
... the process is semi-automatic
the file tailoring processor will substitute inside the skel the variables with the same name present in Your rexx

hint
Code:
rexx code  ...
somedsn = "MY.DSN"

skel source
//DDNAME DD DISP=SHR,DSN=&SOMEDSN

ftinclude result
//DDNAME DD DISP=SHR,DSN=MY.DSN
Back to top
View user's profile Send private message
Guest







PostPosted: Thu Dec 09, 2010 3:42 pm    Post subject:
Reply with quote

Hi,
In order to avoid the
Quote:

ENTER INPUT JOB STREAM:
***


try using the following command:
Code:

X = OUTTRAP("OUTPUT.",'*',"CONCAT")
ADDRESS TSO "SUBMIT * END(££)"     
X = OUTTRAP('OFF')                 
Back to top
srinivasbathimmi

New User


Joined: 10 May 2006
Posts: 13

PostPosted: Thu Dec 09, 2010 5:50 pm    Post subject: Reply to: Job Submiting from Rexx program
Reply with quote

Thank you all of you.
It's working.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm
No new posts REXX WTO for console message bipinpeter CLIST & REXX 6 Tue Jun 27, 2017 3:56 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us