MVSFORUMS.com

jay · Beginner Joined: 03 Dec 2002 Posts: 3 Topics: 1

Hi all,

I am relatively new to Mainframes.
But still I have basic knowledge about Cobol, JCL and especially batch processing.

I have read something regarding "Internal Reader" in JCL.
But still not clear exactly how it functions.

Can anybody tell me basic idea of how Internal reader works in JCL?
Or else you can direct me to the link that can help me understand.

Thanks

Jay

RonB · Posted: Thu Dec 05, 2002 9:30 am Post subject:

In the "old" days, all JCL, as well as most original data, used to be punched onto 80-column cards and fed into the mainframe through a card reader. Today, we create JCL using terminals and stage it in libraries. The JCL "reader" is no longer a physical device - but it is "simulated" - and it is called the "internal" reader. Putting JCL into the "internal" reader is done by coding the output destination for a file to the "internal" reader and writing the desired JCL into it. This is usually done by coding ( for example )

//jobjcl DD SYSOUT=(,INTRDR)

When the dataset is closed and released, the system will "read" and process the contents just as if it were a submitted job.

Manas Biswal · Posted: Thu Dec 05, 2002 10:42 am Post subject:

I have used Internal Reader to submit batch jobs from a CICS program. Our installation has an Extra-partitioned TDQ defined to the Internal Reader. We write the whole job in the CICS program to the TDQ. The TDQ being associated to the Internal Reader, it automatically submits the whole job to JES.

Regards,
Manas

Jeba · Posted: Fri Dec 06, 2002 1:29 pm Post subject:

Manas,

Can you please send me the CICS commands ( With example ) to be used to write the JCL to the Internal reader. We need to send an Email from an Online program. We are going to achieve this by submitting a batch job from Online program. The Batch Job will send an email.

It will be very useful to me ( us), If you can update in this forum.
_________________
Thanks,
Jeba
(Known is a drop Unknown is an ocean)

kolusu · Posted: Fri Dec 06, 2002 1:54 pm Post subject:

Jeba,

The following is the procedure for sending an email from CICS program.

Define an extra partition TDQ with a destination to INTRDR in the destination control table(DCT).The use the following logic in your program.

Jeba · Posted: Fri Dec 06, 2002 2:34 pm Post subject:

Kolusu,

Do we need to define any DCT entry or any setup before testing the above code. Just want to know about the setup if any. Thanks for your help.
_________________
Thanks,
Jeba
(Known is a drop Unknown is an ocean)

kolusu · Posted: Fri Dec 06, 2002 2:36 pm Post subject:

Jeba,

yes you need to define the extra partition TDQ with a destination to INTRDR in the destination control table(DCT).

Kolusu

Jeba · Posted: Fri Dec 06, 2002 2:43 pm Post subject:

Kolusu,

Thanks once again.
_________________
Thanks,
Jeba
(Known is a drop Unknown is an ocean)

Manas Biswal · Posted: Sat Dec 07, 2002 12:53 am Post subject:

Hi Kolusu,

If I am not wrong, you have to give a '/*EOF' at the end of all the JCL statements while writing to the TDQ signifying the end of the JCL. That is how we do it in our installation. Please correct me if I am wrong.

Regards,
Manas

kolusu · Posted: Sat Dec 07, 2002 8:40 am Post subject:

Manas Biswal,

I think '/*EOF' is site dependent. At my site I don't remember coding that. I may be wrong also as it has been 3 years that I worked on cics

Kolusu

Hariharan78 · Posted: Mon Dec 09, 2002 3:18 am Post subject:

hi jay,
I hope this link will give some info reg internal reader
http://www.damos.dircon.co.uk/html/submit_a_job_from_within_a_job.html

Have a nice day
bye
_________________
S.Hariharan

kolusu · Posted: Tue Dec 10, 2002 11:32 pm Post subject:

Check this for more information on INTRDR - Internal Reader

Hope this helps...

cheers

kolusu

harikrishka · Posted: Sat Jan 11, 2003 11:59 pm Post subject:

Using a TDQ is a bit old technique of submitting batch jobs from CICS. Now CICS TS supports SPOOL OPEN/WRITE commands which directly submits job to JES. The advantage of using these commands are, no need of destination table definitions, no need of assingning TDQ in the CICS startup JCL to INTRDR etc. In our mainframe shop, CICS admin team specifically asking us to go for SPOOL comands.
_________________
Hari