MMAEGA
New User
Joined: 08 Jul 2020 Posts: 1 Location: SPAIN
|
|
|
|
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
always return file status 10 as if the were nothing inside
¿How to read again after generating the file with CEE3DMP?
Regards. |
|