MVSFORUMS.com

[srinivasbathimmi]

Hi,

Could you please let me know if any one of you have any idea on how to invoke a batch job from online environemnt asap (ie; from CICS region or from IMS DC)

[CICS Guy]

From CICS, a TDQ via INTRDR, Spool write or a trigger to your scheduler...

[blitz2]

http://www.mvsforums.com/helpboards/viewtopic.php?t=7781
http://www.mvsforums.com/helpboards/viewtopic.php?t=6187
________
Battlestar Galactica Advice

[vkphani]

srinivasbathimmi,

CICS commands SPOOLOPEN, SPOOLWRITE and SPOOLCLOSE can be used to submit jobs to JES Internal Reader (USERID(INTRDR)).
Check the manual for syntax of these commands.

Another way is you can write JCL in an extrapartition TDQ and define this TDQ in JES INTRDR, then this JCL would be automatically picked up by JES and submitted.

[ar_karthick]

We can use the TDQ method to submit a batch job from CICS. Make sure that in the JCL the DDNAME you have the INTRDR option specified which will than route the output to the JES input queue. You will have to write incorrectly formatted JCL including the jobcard and the last // to make things work. Closing the TDQ should send the current contents off to JES.



We have the above TDQ method used in JADE CICS regions to submit a batch job from CICS.



WLINTRDR DD SYSOUT=(A,INTRDR) --> Internal reader DDNAME specified in CICS proc



Tdq(FC01) Ext Ena Ope --> Extra Partition TDQueue which send the information to JES

Mod Out Dat(010) Ddn(WLINTRDR)



Tra(P801) Pri( 001 ) Pro(MXCPP801) Tcl( DFHTCL00 ) Ena Sta --> Transaction that submits the job

Prf(DFHCICST) Uda Bel Iso Bac Wai



Since the DD statement: WLINTRDR DD SYSOUT=(A,INTRDR) points to an internal reader, anything written to this TDQ, FC01, is sent to the JES internal reader. So, the P801 transaction (probably program MXCPP801) appears to write the following 80 byte records to this TDQ. You need 2 "/*EOF" cards at the end of the JCL so that it gets released into the system.



//MXMDP901 JOB (0000,0000),'DEMAND MXMDP901',

// MSGCLASS=S,REGION=7M,CLASS=A

//U7SVC EXEC PGM=U7SVC,

// PARM='/LOGON C315;DEMAND,JOB=MXMDP901,SCHID=1'

//SYSUDUMP DD SYSOUT=D

//UCC7DATA DD *

/LOGOFF

/*

/*EOF

/*EOF



There is another method, use the API provided by CICS to do this operation. There are some XC SPOOL commands that do what you want. You just use the XC SPOOLOPEN OUTPUT to create the "job", put in the cards via XC SPOOLWRITE (including the last //) and then send the job by closing with XC SPOOLCLOSE. If you need to get the output back into CICS, then use the XC SPOOLOPEN INPUT and XC SPOOLREAD commands.
_________________
karthick