Jeff,
If the ENDIF on 7600 is for the IF at 6300 it appears you are not
getting a record on the READE on 6200 and therefore none of the code
between 6400 and 7400 is being hit.
Mike
-----Original Message-----
From: wdsci-l-bounces@xxxxxxxxxxxx [
mailto:wdsci-l-bounces@xxxxxxxxxxxx]
On Behalf Of Jeff Young
Sent: Monday, April 23, 2007 11:52 AM
To: Websphere Development Studio Client for iSeries
Subject: [WDSCI-L] SEP Debug
I am using SEP Debug on a program running in the batch.
WDSc 6.01.
The following is a snippet of the code:
</SNIP>
006000 // Get VSADETL record
006100 SetLL (IjCmp : IjCust : IjInv : IjItem) SaDetlR;
006200 ReadE (IjCmp : IjCust : IjInv : IjItem) SaDetlR;
006300 If Not %Eof(); // Have a record
006400 If Control_Data = Save_Control; // Duplicate item
006500 Dou Not %Equal(VInLog_C);
006600 // Test if this line# is already on the new VINLOG
file
006700 SetLL (IjCmp : IjCust : SbOrd : SbBoCd : SbLine)
InLogR;
006800 If %Equal ();
006900 ReadE (IjCmp : IjCust : IjInv : IjItem) SaDetlR;
007000 If %Eof();
007100 Leave;
007200 ENDIF;
007300 EndIf;
007400 EndDo;
007600 ENDIF;
007700 Save_Control = Control_Data; // Save Last Invoice / Item <SNIP>
I have an unconditional break point set at line 006400 and 007700.
When running the program, it stops as statement 7700, but never at 6400.
Using STEP mode, I have determined that the code between lines 6300 and
6500 does get executed.
Any suggestions?
Thanks,
Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical
Solutions V5R2 IBM Certified Specialist- e(logo) server i5Series
Technical Solutions Designer V5R3 IBM Certified Specialist-
e(logo)server i5Series Technical Solutions Implementer V5R3
midrange.com
