How to run a job from COBOL

krishna_Murty · New User Joined: 17 Sep 2006 Posts: 24

Can some one give a sample and simple code to run a job from a Cobol Program.

Actually if we write a output file and write the output lines which makes
up a JCL, once the output lines are completed are there any instructions given like submit from cobol itself to run this output file.

ofer71 · Posted: Mon Sep 25, 2006 10:54 am

Since SUBMIT is also a TSO command, you can issue it from within COBOL, just like any other TSO command. See example here.

Another option is to direct your output lines to INTRDR.

O.

krishna_Murty · New User Joined: 17 Sep 2006 Posts: 24

Thanks but the example site here is not active. Is there any alternative. viz give other links or copy and paste the code here.

murali922 · New User Joined: 25 Jul 2005 Posts: 92 Location: India

Your question : How do I submit a JOB from my COBOL program ?

If I have understood your question I have a suggestion.

1. Do all processing you want to in your COBOL program.
2. Define the JOB card, EXEC, DD statements as working storage varialbles, like the below one :-

ofer71 · Posted: Tue Sep 26, 2006 4:19 pm

I think he was asking about COBOL under TSO, not CICS...

O.

Kevin · Active User Joined: 25 Aug 2005 Posts: 234

krishna_Murty · New User Joined: 17 Sep 2006 Posts: 24

Thank you so much, after posting the question i became little busy and could not see the forum again. i will review the code and get back.

Once again thanks for taking so much importance for my query and replying to it.

krishna_Murty · New User Joined: 17 Sep 2006 Posts: 24

ofer71

I wrote a COBOL program, Just for ur understanding the main statements in COBL PRG ARE

FILE-CONTROL
SELECT JCL-OUT ASSIGN TO UT-S-JCLDD.

DATA DIVISION.
FD JCL-OUT
RECORD CONTAINS 80 CHARACTERS
RECORDING MODE IS F
DATA RECORD IS JCL-RECOUT.

01 JCL-RECOUT PIC X(80).

00000-MAINLINE.
OPEN INPUT JCL-IN
OPEN OUTPUT JCL-OUT
PERFORM 1000-READ-MOVE UNTIL EOF
CLOSE JCL-IN
CLOSE JCL-OUT
GOBACK.

1000-READ-MOVE.
IF NOT EOF
READ JCL-IN INTO WS-RECORD
AT END MOVE 'Y' TO WS-EOF
END-READ
MOVE WS-RECORD TO JCL-RECOUT
END-IF

This above cobol program reads JCL input file and move the records to output file, (Note I did not write the records to output only moved)

Now from the JCL point of view to run the above cobol , i wrote

//JCLDD DD SYSOUT=(*,INTRDR)

The job thus the Program is running fine but not executing the JCLDD file, ie. the output JCL file is not firing.

Can u please guide me, where i went wrong.

Also this is not from CICS point of view, this is batch programing i am looking for.

Thanks

kamran · New User Joined: 01 May 2005 Posts: 55

Hi,
You coded completly right except you must write the record instead of just "MOVE WS-RECORD TO JCL-RECOUT"
so change the code to:
"write JCL-RECOUT from WS-RECORD."

kris.2020 · New User Joined: 09 May 2006 Posts: 2

Thanks for info

krishna_Murty · New User Joined: 17 Sep 2006 Posts: 24

Thanks to all
I got the job running fine

Regards
Krishna

jijesh · New User Joined: 09 May 2006 Posts: 4

Hi all

I am very news to Mainframes.

i was just not able to figure out the advantage of submitting a JCl through a cobol??????

if we need to run multiple programs, we can use a Proc. why then do we need one program like this?????

also can we submit the job for the same program???? or is it that this program will be run normally and all the others jobs will be triggered subsequently by this program.

please help me in having a better clarity about the entire concept.

thanks

supreethi.srid · New User Joined: 15 Oct 2009 Posts: 5

I am trying to execute a TSO command from IMS online by invoking transaction from the terminal. Getting RC of 16 while executing IKJTSOEV. Ignoring that assuming that the environment is already set, I continue to execute IKJEFTSR, I am getting the following :
RETURN CODE - 000000012
REASON CODE - 00000000J
ABEND CODE - 00000000J
For the above, I am trying to execute a sample TSO command to allocate a new dataset. Passed this flag combination - X'00010001'. (My original intent is to execute a set of ACF sub-commands, say, to reset expired password by resetting invalid pw count).

Please provide help on setting up appropriate flags for a sample allocate function. Does the command work at all for executing the TSO ACF sub-commands? - a question on feasibility now. If, so what flags for this one?

steve-myers · Posted: Mon Feb 20, 2017 6:10 pm

Running the TSO SUBMIT command from a Cobol program is more complex than it has to be.

In z/OS, the system provides a capability called an "internal reader." An internal reader is a pseudo data set specified in JCL as

//ddname DD SYSOUT=(x,INTRDR)

The x in SYSOUT=(x,INTRDR) becomes the output message class for the submitted job unless the job's // JOB statement specifies MSGCLASS=y.

With the internal reader specified in the JCL used to run a Cobol program, all the Cobol program has to do is open the data set assigned to DD name ddname for output and write the JCL for the job the Cobol program wants to run to the data set.

This capability has been in the system since the first release of MVS. Use it!

Robert Sample · Posted: Mon Feb 20, 2017 6:28 pm

supreethi.srid, you replied to a topic TEN AND A HALF YEARS OLD! And your question really has nothing to do with the original topic. You need to find and read the forum rules before you post anything else.

Bill Woodger · Posted: Mon Feb 20, 2017 10:36 pm

Please start a completely new question, and be exactly clear about what you are trying to achieve, rather than how you are trying to achieve it.

"I want to be able to reset an 'ACF-password' from an IMS transaction". Is that it?