Focal Point Banner


As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.

Join the TIBCO Community
TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.

  • From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
  • Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
  • Request access to the private WebFOCUS User Group (login required) to network with fellow members.

Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.


Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     submit JCL from FOCEXEC

Read-Only Read-Only Topic
Go
Search
Notify
Tools
submit JCL from FOCEXEC
 Login/Join
 
<lumen>
posted
How can I submit a JOB thru a FOCEXEC procedure.
Please help me.
 
Report This Post
Francis Mariani
Expert
posted Hide Post
Something like this:
 TSO FREE  F(FRD01)
TSO DELETE 
(TEMPJCL2)
-RUN
-PART2
TSO ALLOC F(FRD01)
DA(TEMPJCL2) NEW 
SPACE(20,20) 
TRACKS UNIT(PROD)
BLKSIZE(80) DSORG(PS) 
LRECL(80) CFM(F)
 RUN PART4  WRITE FRD01 
//&USER2   
JOB (ZMMICG,&ROOMCDE),
'IRS - LR'&COMMA WRITE FRD01 // 
 MSGCLASS=T WRITE FRD01 
//DATALD1   EXEC FOCUS ,
REGION=4096K   
WRITE FRD01 //MASTER   
DD DSN=ZIPIC.SRS.MASTER,
DISP=SHR   
WRITE FRD01 //FOCEXEC  DD DSN=ZIPIC.SRS.FOCEXEC,DISP=SHR                       
-WRITE FRD01 //SYSIN   
 DD *  WRITE FRD01 EX 
TESTFEX WRITE FRD01 FIN   
WRITE FRD01 /* WRITE FRD01 //
SYSPRINT  
DD SYSOUT=* WRITE FRD01 //SYSOUT   
 DD SYSOUT=*   WRITE FRD01 //
TSO SUBMIT (TEMPJCL2)
TSO FREE  F(FRD01) 
TSO DELETE (TEMPJCL2)
 RUN

This message has been edited. Last edited by: <Mabel>,
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Report This Post
<Mabel>
posted
quote:
Originally posted by Francis Mariani:
Something like this:
 TSO FREE  F(FRD01)
TSO DELETE 
(TEMPJCL2)
-RUN
-PART2
TSO ALLOC F(FRD01)
DA(TEMPJCL2) NEW 
SPACE(20,20) 
TRACKS UNIT(PROD)
BLKSIZE(80) DSORG(PS) LRECL(80) CFM(F)  
RUN PART4  WRITE FRD01 
//&USER2   
JOB (ZMMICG,&ROOMCDE),
'IRS - LR'&COMMA WRITE FRD01 // 
 MSGCLASS=T WRITE FRD01 
//DATALD1   EXEC FOCUS ,
REGION=4096K   
WRITE FRD01 //MASTER   
DD DSN=ZIPIC.SRS.MASTER,
DISP=SHR   
WRITE FRD01 //FOCEXEC  DD DSN=ZIPIC.SRS.FOCEXEC,DISP=SHR                       
-WRITE FRD01 //SYSIN   
 DD *  WRITE FRD01 EX 
TESTFEX WRITE FRD01 FIN 
WRITE FRD01 /* WRITE FRD01 //
SYSPRINT  
DD SYSOUT=* WRITE FRD01 //SYSOUT   
 DD SYSOUT=*   WRITE FRD01 //
TSO SUBMIT (TEMPJCL2)
TSO FREE  F(FRD01) 
TSO DELETE (TEMPJCL2)
 RUN
 
Report This Post
Mikel
Platinum Member
posted Hide Post
The DYNAM SUBMIT command submits jobs to MVS.

Mikel


WebFOCUS 8.1.05, 8.2.01
 
Posts: 173 | Location: Madrid, Spain | Registered: May 09, 2003Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     submit JCL from FOCEXEC

Copyright © 1996-2020 Information Builders