|
View previous topic :: View next topic
|
| Author |
Message |
sudheer_kumar
New User
Joined: 27 Dec 2005
Posts: 16
|
|
|
|
How to submit JCL via a Cobol program?
Regards,
Sudheer |
|
| Back to top |
|
 |
vidhyanarayanan
New User
Joined: 23 Dec 2005
Posts: 52
|
|
|
|
Hi Sudheer,
You can submit the JCL thro COBOL program using the concept called
INTERNAL READER. if you want more details, let me know.
Regards,
vidhya |
|
| Back to top |
|
|
kamran
New User
Joined: 01 May 2005
Posts: 55
|
|
|
|
Hi,
Also I haven't done it yet in cobol but I think the logic is not different to others like rexx!
Anyhow for submitting a jcl via every program you must allocate a jes2 file with the bellow specification:
//anyname DD SYSOUT=(class,INTRDR)
the class can be any defined class in your system.
Certainly you are familiar with procedures to be done to write some records in any file in cobol.All the thing you need is to define some records as bellow in working storage section:
01 jcl-recs.
05 jcl-line-1 pic x'80' value 'something!'
05 jcl-line-2 pic x'80' value 'something!'
...
...
a select file in file-control and a FD in file section and ...
like an ordinary file opening for output, writing jcl-lines and closing it and the difference is just in attrebute of allocated file.
In CICS you can use spoolopen spoolclose spoolwrite instructions. |
|
| Back to top |
|
|
vidhyanarayanan
New User
Joined: 23 Dec 2005
Posts: 52
|
|
|
|
In the procedure division,
code like this....
move '// a jcl statement ' to outrec
write outrec.
.
.
. just try this for creating a ps via cobol. u ll understand easily then.
In ur run jcl,
// s1 exec pgm= pgm name
// dd1 dd sysout =(*,intrdr)
Hope this ll help u....
regards,
vidhya |
|
| Back to top |
|
|
|
|
