Dan,
You might was try the command: Start Trace (STRTRC). But, I don't recommend it... <smirk>
Not available in RDI, they left that out for some strange reason. I assume it has a high overhead usage. My guess... :(
Using RDI, I often use "add breakpoint watch" to watch when a variable changes. And I often edit a break-point to break "When" a condition happens. For instance when my "counter" goes over 100. That is if I am using a counter variable.
ON the edit break-point, you can also put a frequency on the break point. Which is maybe why they did NOT put in the start-trace. With all those great debugging tools in RDI, I really don't need the trace. It was an absolute pain to me anyway! <grin>
Oh well, I hope you find this info helpful.
-Ken Killian-
-----Original Message-----
From: WDSCI-L <wdsci-l-bounces@xxxxxxxxxxxx> On Behalf Of Dan
Sent: Wednesday, July 25, 2018 10:14 AM
To: Websphere Development Studio Client for iSeries <wdsci-l@xxxxxxxxxxxx>; RPG400-L@xxxxxxxxxxxx
Subject: [WDSCI-L] Generate a list of every RPG statement executed in a job, in sequence of execution
(cross-posted to WDSC-L, RPG400-L)
I was banging my head trying to debug a program yesterday.  Stepping through the RDi debugger was slow and tedious.
Is there something in RDi or some other system command that will generate a list of every RPG statement executed in a job, in sequence of execution?  I think I understand that code coverage will show a summary of this; line
100.00 executed 20 times, line 101.00 executed 5 times, etc. But I'm looking for
0435.00       Dou %eof( CA8555RwL1);
0436.00         Reade #142AcctID CA8555RwL1;
0437.00         If not %eof( CA8555RwL1);
0438.00           y += 1;
0439.00           #142Pat(y) = w_su_PatID;
0440.00           #142Crg(y) = w_su_CrgID;
0442.00           If y = #maxCA0142Rparmarrayelements;
0446.00           Endif;
0447.00         Endif;
0448.00       Enddo;
0435.00       Dou %eof( CA8555RwL1);
0436.00         Reade #142AcctID CA8555RwL1;
0437.00         If not %eof( CA8555RwL1);
0438.00           y += 1;
0439.00           #142Pat(y) = w_su_PatID;
0440.00           #142Crg(y) = w_su_CrgID;
0442.00           If y = #maxCA0142Rparmarrayelements;
0443.00             Exsr Call_CA0142R_Update_CA8555RwL1;
0444.00             Clear CA0142Rout;
0445.00             y = 0;
0446.00           Endif;
0447.00         Endif;
0448.00       Enddo;
I'm looking for at least the source line numbers.  Bonus if the code is included.
- Dan
--
This is the Rational Developer for IBM i / Websphere Development Studio Client for System i & iSeries  (WDSCI-L) mailing list To post a message email: WDSCI-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: 
https://lists.midrange.com/mailman/listinfo/wdsci-l
or email: WDSCI-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at 
https://archive.midrange.com/wdsci-l.
As an Amazon Associate we earn from qualifying purchases.