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: 3
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 Any examples of calling FTP from REXX? CLIST & REXX 1
No new posts Calling Assembler from REXX PL/I & Assembler 5
No new posts Calling Rexx program from Cobol CLIST & REXX 12
No new posts Dynamically read input files using BP... COBOL Programming 20
No new posts Calling a Rexx from within another Rexx CLIST & REXX 3
Search our Forums:

Back to Top