Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

TDQ to sysout

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
seoj

New User


Joined: 25 Jan 2006
Posts: 1

PostPosted: Tue Feb 14, 2006 5:25 pm    Post subject: TDQ to sysout
Reply with quote

Let's suppose, I have a dd statement in cics startup jcl,

//RDR1 DD SYSOUT=(,INRDR)
//RDR2 DD SYSOUT=Y

and I map these DDs with TDQ1, TDQ2 in my DCT.

then,

1. I try to put JCLs on RDR1 in the following way.

STEP 1) SET TDQUEUE(TDQ1) OPEN
STEP 2) WRITEQ TD QUEUE(TDQ1) FROM(SOMEJCL-BUFFER)
STEP 3) SET TDQUEUE(TDQ1) CLOSE

where SOMEJCL-BUFFER contains my whole JCL with /*EOF.

Then, I wonder when the JCL is actually put into JES. Is it after STEP2 or STEP3? (and, is it the output queue holding the JCL first and the internal reader next?) And, if I do not do SET TDQ OPEN/CLOSE, when is the JCL put into JES? perhaps after CICS RETURN?

2. I would like to print out some messages through RDR2 from CICS.

WRITEQ TD QUEUE(TDQ2) FROM(SOMELOG-BUFFER)

If I write TDQ using WRITEQ command, I wonder when the printer actually prints the my messages. Is it just after WRITEQ TD or after CICS RETURN? or any other possible command such as SET TDQUEUE, as above?

If I use SPOOLOPEN/WRITE/CLOSE, it is clear how the system behaves, but the IBM manual is vague on this TDQ extrapartition issue. If you think that I might have been looking at some wrong manuals, could you recommend any material on this issue?

Cheers,
s
Back to top
View user's profile Send private message

martin9

Active User


Joined: 01 Mar 2006
Posts: 290
Location: Basel, Switzerland

PostPosted: Wed Mar 01, 2006 5:12 pm    Post subject:
Reply with quote

just goto to url http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/library for more information...

you can define a printer in cics as a terminal and start
any transaction with this terminal, therefore use SEND
to give out any message on that printer...

martin9[/url]
Back to top
View user's profile Send private message
autobox

New User


Joined: 19 Aug 2005
Posts: 48

PostPosted: Fri Mar 31, 2006 8:05 am    Post subject: Re: TDQ to sysout
Reply with quote

seoj wrote:
Let's suppose, I have a dd statement in cics startup jcl,

//RDR1 DD SYSOUT=(,INRDR)


Maybe you should try //RDR1 DD SYSOUT=(,INTRDR).
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Find the total of this field in SYSOUT karz DFSORT/ICETOOL 3 Thu Nov 13, 2014 2:59 pm
No new posts CEEDUMP & Diagnostic message in S... saurabh39 COBOL Programming 4 Fri Jan 10, 2014 12:44 pm
No new posts Problem Loading jobs sysout from SAR ... thesumitk CA Products 3 Mon Aug 12, 2013 11:38 pm
No new posts Need to extract report from sysout harisukumaran DFSORT/ICETOOL 1 Fri Apr 26, 2013 4:32 am
No new posts Overriding SYSOUT of IKJEFT01 to a da... enrico-sorichetti IBM Tools 8 Sun Apr 07, 2013 5:19 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us