Portal | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
use BPXWDYN after calling CEE3DMP for traceback

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
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    Post subject: use BPXWDYN after calling CEE3DMP for traceback
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    Post subject: Reply to: use BPXWDYN after calling CEE3DMP for traceback
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    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Dynamically read input files using BP... Srinivas B COBOL Programming 20 Sat Sep 05, 2020 1:48 pm
No new posts Calling a Rexx from within another Rexx ManuelPacheco CLIST & REXX 3 Wed Apr 22, 2020 2:45 pm
No new posts calling java code(on mainframe from c... elixir1986 COBOL Programming 1 Fri Nov 30, 2018 1:57 am
No new posts Need advise in calling DFSORT from REXX ajithajt CLIST & REXX 9 Thu Nov 29, 2018 10:50 am
No new posts Calling and updating SAS Macro variab... Yogesh Jaiswal All Other Mainframe Topics 7 Thu Oct 11, 2018 12:37 pm

Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us