IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

use BPXWDYN after calling CEE3DMP for traceback


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
MMAEGA

New User


Joined: 08 Jul 2020
Posts: 1
Location: SPAIN

PostPosted: Wed Jul 08, 2020 4:46 pm
Reply with quote

Hi.
I'm new in this focum an this my first question:

I'm trying to obtain a traceback of a module call chain.

The steps are:

1. call BPXWDYN to alloc a file for cee3dmp, doing this:

Code:
STRING '''A141310.CL'                                   
       '.D'                                             
       FAIL-TIME(3:6) '.T'                               
       FAIL-TIME(9:6) '''' Delimited By Space           
       Into DSNAME Pointer DSN-LEN                       
STRING 'ALLOC DD(FITRACE1) DSN(' DSNAME(1:DSN-LEN - 1)   
       ') NEW  CATALOG LRECL(133) RECFM(F,B)'           
    DELIMITED BY SIZE                                   
     INTO WS-ALLOC-TEXT                                 
    END-STRING.                                         

CALL BPXWDYN USING WS-ALLOC-STRING.                     

and it's ok

2. Then i call CEE3DMP to produce a dump only with the traceback givin result in the file FITRACE1

Code:
MOVE 'TITLE - TRACEBACK' TO DMPTITL.                         
STRING 'THREAD(CURRENT) TRACEBACK NOFILES FNAME(FITRACE1)'   
       ' NOSTORAGE NOVARIABLES NOBLOCKS NOCONDITION'         
       ' NOGENOPTS NOENTRY'                                 
    DELIMITED BY SIZE                                       
    INTO OPTIONS                                             
CALL "CEE3DMP" USING DMPTITL, OPTIONS, FC.                   
IF NOT CEE000 of FC  THEN                                   
   display "cee3dmp failed with msg "                       
        Msg-No of FC                                         
   STOP RUN                                                 
END-IF.                   

and also it Works


3. But problem is when I try to read FITRACE

Every time I try to read:

I call BPXWDYN but this time with SHR AND FITRACE2 but same file:

Code:
STRING 'ALLOC DD(FITRACE2) DSN('same dsn') SHR'           
    DELIMITED BY SIZE                                   
     INTO WS-ALLOC-TEXT                                 
    END-STRING.                                         

CALL BPXWDYN USING WS-ALLOC-STRING.                     

and it seems to go well

then

Code:
OPEN INPUT FI-TRACE2.
ok

but
Code:
READ FI-TRAZA2
always return file status 10 as if the were nothing inside

¿How to read again after generating the file with CEE3DMP?

Regards.
Back to top
View user's profile Send private message
lchui

New User


Joined: 10 Jun 2020
Posts: 7
Location: Canada

PostPosted: Wed Jul 22, 2020 9:21 am
Reply with quote

Hi,

Have you resolved your issue yet?
I'm very new to COBOL but i noticed your file names look different at the bottom of your post and was wondering if the name mis-match could be your issue?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Calling DFSORT from Cobol, using OUTF... DFSORT/ICETOOL 5
No new posts Calling Java method from batch COBOL ... COBOL Programming 5
No new posts Calling an Open C library function in... CICS 1
No new posts calling a JCl inside a JCL JCL & VSAM 3
No new posts Calling IEHPROGM from REXX CLIST & REXX 7
Search our Forums:

Back to Top