1,710 pts.
 Debugging in AS400
I have a RPG Program consist of 3000 lines and its using 9 Physical Files and some LF also .. Now i need to debug the program only to find out particular values in particular in Particular PF. In debugging Mode if i press F10 its reading all those records in every PF. How can i stop the read at particular point and continue with next loop or next read. ??

Software/Hardware used:
ASKED: November 23, 2012  8:51 AM

Answer Wiki:
Last Wiki Answer Submitted:  Be the first to answer this question.
All Answer Wiki Contributors:  Be the first to answer this question. Sureyz   1,710 pts.
To see all answers submitted to the Answer Wiki: View Answer History.


Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _


 

Is it RPG III or RPG IV? Are these full procedural files or are they read by the RPG ‘Cycle’? (That is, does the program use READ or CHAIN statements or are the files read automatically?) — Tom

 110,035 pts.

 

Hi Tom..
its RPG III and these are Full procedure files,
and its using CHAIN with keylist to read teh records.

 1,710 pts.

 

The very first thing I would do is conert the program to RPG IV.
 
But for RPG III, I’m not quite certain what you’re asking. If you want to see values at a specific spot in the program, set a breakpoint and don’t use F10. Use F12 to run to the breakpoint.
 
If that doesn’t make sense for your circumstances, please clarify what you mean. The only other element that I can think of that would be related would be the debugger showing each field being populated as you press F10 over and over again. If that’s what you mean, then the answer is to convert the program to RPG IV and recompile with OPTION( *NODEBUGIO ).
 
Tom

 110,035 pts.

 

Typo… “…is convert the program to RPG IV.” — Tom

 110,035 pts.

 

You can put the OPTION(*NODEBUGIO) in the H spec of the RPG program and you will not have to remember to change the compile option every time you compile the program.

 210 pts.