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
 

 

Capture CICS CEMT output into DS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
elmho01

New User


Joined: 06 May 2013
Posts: 4
Location: SA

PostPosted: Mon May 13, 2013 11:04 am    Post subject: Capture CICS CEMT output into DS
Reply with quote

Hello,
I try to drive the output of CICS CEMT command into a DS using a console command:

Code:

address tso                                                       

"consprof soldisp(no) solnum(30) unsoldisp(yes) unsolnum(30)"     
"console activate name(CON"SmfId")"                               
/*  ..  console activation check code ... */                         

 "CONSOLE SYSCMD(F CICSTS1A,CEMT I DB2CONN)  CART("Cart")"       

Do 5 until getcode = 0                                           
getcode = getmsg(getmsg.,'SOL',Cart,,40)                         
End                                                               
If Getcode <> 0 Then Do                                           
  "console deactivate"                                           
  Exit Getcode                                                   
End 

/*  ..  Drive the output to DS code ... */


But the output shows up the first section till 2nd '+' plus sign, and not the rest of the messages.

SAMPLE:


Code:

+                       
  Db2conn               
  Accountrec( Task )     
  Authid(          )     
  Authtype( Sign )       
  Comauthid(          ) 
  Comauthtype( Csign )   
  Comthreadlim( 0001 )   
  Comthreads(0000)       
  Connecterror( Abend )



Do I miss something in my code to abstract the full multi message output???
Thanks in advance.
Back to top
View user's profile Send private message

Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2019
Location: Silicon Valley

PostPosted: Mon May 13, 2013 6:55 pm    Post subject: Reply to: Capture CICS CEMT output into DS
Reply with quote

Code:
/*  ..  Drive the output to DS code ... */


You need to show us the details of that.
Back to top
View user's profile Send private message
elmho01

New User


Joined: 06 May 2013
Posts: 4
Location: SA

PostPosted: Tue May 14, 2013 12:30 pm    Post subject: Reply to: Capture CICS CEMT output into DS
Reply with quote

Hi Pedro,
I appreciate your concern.
The code for
/* .. Drive the output to DS code ... */
is

Code:

X = SYSDSN('SYS4.TEMPIPL')                                           
IF X = "OK" Then Do                                                   
  "ALLOC DD(ATLJCL) DSNAME('SYS4.TEMPIPL') OLD"                       
End                                                                   
Else Do                                                               
  "ALLOC DD(ATLJCL) UNIT(SYSDA) SPACE(2) LRECL(80) RECFM(F B) REUS   
         DSNAME('SYS4.TEMPIPL') BLKSIZE(27920) DSORG(PS)"             
End            /* X <> 0                   */                         
                                                                     
"EXECIO * DISKW ATLJCL (FINIS STEM GetMsg."                           
"FREE DD(ATLJCL)"                                                     


THANKS
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Tue May 14, 2013 12:39 pm    Post subject: Reply to: Capture CICS CEMT output into DS
Reply with quote

read here why using
EXECIO * DISKW is a bad practice
http://www.ibmmainframes.com/viewtopic.php?t=60269&highlight=execio
Back to top
View user's profile Send private message
elmho01

New User


Joined: 06 May 2013
Posts: 4
Location: SA

PostPosted: Wed May 15, 2013 4:20 pm    Post subject: Reply to: Capture CICS CEMT output into DS
Reply with quote

Thanks Enrico for update..
But this wouldn't resolve the main issue to capture the whole message output.
Thanks
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Wed May 15, 2013 5:12 pm    Post subject: Reply to: Capture CICS CEMT output into DS
Reply with quote

You did not tell what You tried ...

show the content of
Code:
GetMsg.0


and if there is a mismatch with the lines written You will understand the why of my suggestion

instead of
Code:
"EXECIO * DISKW ....."

wiser to use
Code:
"EXECIO" GetMsg.0 "DISKW....."
Back to top
View user's profile Send private message
elmho01

New User


Joined: 06 May 2013
Posts: 4
Location: SA

PostPosted: Sat May 18, 2013 10:42 am    Post subject: Reply to: Capture CICS CEMT output into DS
Reply with quote

Thanks Enrico for update..

As I enable the TRACE:
Code:

"EXECIO" GetMsg.0 "DISKW ATLJCL ( STEM GetMsg."       
    >>>   "EXECIO 10 DISKW ATLJCL ( STEM GetMsg."             
 
 "FREE DD(ATLJCL)"                                     
    >>>   "FREE DD(ATLJCL)"                                   
56861I  FILE ATLJCL NOT FREED, DATA SET IS OPEN               
    +++ RC(12) +++                                             


WHY it's picking up only 10 messages.
Thanks
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Sat May 18, 2013 11:26 am    Post subject: Reply to: Capture CICS CEMT output into DS
Reply with quote

Quote:
WHY it's picking up only 10 messages.


because that' s all You got back !

<stem>.0 contains the number of <message> lines returned

how many lines do You get when You issue the modify from the console

try also with something like
"CONSPROF SOLDISP(NO) SOLNUM(9999) UNSOLDISP(NO) UNSOLNUM(999) "

I do not remember if the output from a modify is a SOLICITED or an UNSOLICITED message
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How does a called pgm know if its cal... Graeme Westerman COBOL Programming 4 Tue Nov 29, 2016 9:25 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts CICS NEW SIT PARAMETERS CICS BEHAVIOR... Kyle Carroll CICS 0 Fri Nov 04, 2016 11:55 pm
No new posts Syncsort - Hard coded Value in output PORYES SYNCSORT 1 Thu Nov 03, 2016 9:23 am


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