MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Internal Reader

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
jay
Beginner


Joined: 03 Dec 2002
Posts: 3
Topics: 1

PostPosted: Thu Dec 05, 2002 9:03 am    Post subject: Internal Reader Reply with quote

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
Back to top
View user's profile Send private message
RonB
Beginner


Joined: 02 Dec 2002
Posts: 93
Topics: 0
Location: Orlando, FL

PostPosted: Thu Dec 05, 2002 9:30 am    Post subject: Reply with quote

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.
Back to top
View user's profile Send private message
Manas Biswal
Intermediate


Joined: 29 Nov 2002
Posts: 382
Topics: 27
Location: Chennai, India

PostPosted: Thu Dec 05, 2002 10:42 am    Post subject: Reply with quote

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
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
Jeba
Beginner


Joined: 02 Dec 2002
Posts: 48
Topics: 9
Location: Columbus, GA

PostPosted: Fri Dec 06, 2002 1:29 pm    Post subject: Reply with quote

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)
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Fri Dec 06, 2002 1:54 pm    Post subject: Reply with quote

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.


Code:



01 JCL-STATEMENT-AREA.
   05  JCL1.
       10  FILLER          PIC X(18)  VALUE       
           '//JOBNAME JOB 0,'''.   
       10  FILLER          PIC X(07)  VALUE 'NOTIFY'. 
       10  JCL-JOBNAME     PIC X(08)  VALUE SPACES.
       10  FILLER          PIC X(45)  VALUE                               
           ''',MSGCLASS=Y,CLASS=D                        '. 
       10  FILLER          PIC X(02)  VALUE SPACES.
          .....
      ALL YOUR "N' JCL STATEMENTS HERE.

01 INTRDR-STATEMENT          PIC X(80) VALUE SPACES.
01 W-SUB                     PIC 9(3) value + 0.

PROCEDURE DIVISION.


 PERFORM VARYING W-SUB FROM 1 BY 1 UNTIL W-SUB >  N 
     MOVE JCL-STATEMENT(W-SUB) TO INTRDR-STATEMENT

     EXEC CICS WRITEQ TD QUEUE('EMAIL')   
                         FROM(INTRDR-STATEMENT)
                         LENGTH(80)
     END-EXEC
 END-PERFORM.



The EMAIL is the TDQ which will write the JCL to the intrdr.

Hope this helps...

cheers

kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Jeba
Beginner


Joined: 02 Dec 2002
Posts: 48
Topics: 9
Location: Columbus, GA

PostPosted: Fri Dec 06, 2002 2:34 pm    Post subject: Reply with quote

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)
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Fri Dec 06, 2002 2:36 pm    Post subject: Reply with quote

Jeba,

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

Kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Jeba
Beginner


Joined: 02 Dec 2002
Posts: 48
Topics: 9
Location: Columbus, GA

PostPosted: Fri Dec 06, 2002 2:43 pm    Post subject: Reply with quote

Kolusu,

Thanks once again.
_________________
Thanks,
Jeba
(Known is a drop Unknown is an ocean)
Back to top
View user's profile Send private message Send e-mail
Manas Biswal
Intermediate


Joined: 29 Nov 2002
Posts: 382
Topics: 27
Location: Chennai, India

PostPosted: Sat Dec 07, 2002 12:53 am    Post subject: Reply with quote

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
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Sat Dec 07, 2002 8:40 am    Post subject: Reply with quote

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
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Hariharan78
Beginner


Joined: 01 Dec 2002
Posts: 28
Topics: 8
Location: India

PostPosted: Mon Dec 09, 2002 3:18 am    Post subject: Reply with quote

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
Back to top
View user's profile Send private message Yahoo Messenger MSN Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Tue Dec 10, 2002 11:32 pm    Post subject: Reply with quote

Check this for more information on INTRDR - Internal Reader

Hope this helps...

cheers

kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
harikrishka
Beginner


Joined: 01 Jan 2003
Posts: 3
Topics: 1
Location: Greenville

PostPosted: Sat Jan 11, 2003 11:59 pm    Post subject: Reply with quote

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
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group