Re: SEP Debug

This is the actual code sample:
<SNIP>
0058.00
0059.00 // Get VSADETL record
0060.00 SetLL (IjCmp : IjCust : IjInv : IjItem) SaDetlR;
0061.00 ReadE (IjCmp : IjCust : IjInv : IjItem) SaDetlR;
0062.00 If Not %Eof(); // Have a record
0063.00 If Control_Data = Save_Control; // Duplicate item
0064.00 Dou Not %Equal(VInLog_C);
0065.00 // Test if this line# is already on the new VINLOG file

0066.00 SetLL (IjCmp : IjCust : SbOrd : SbBoCd : SbLine)
InLogR;
0067.00 If %Equal ();

0068.00 ReadE (IjCmp : IjCust : IjInv : IjItem) SaDetlR;

0069.00 If %Eof();

0070.00 Leave;

0071.00 ENDIF;

0072.00 EndIf;

0073.00 EndDo;

0074.00 ENDIF;
0075.00
0076.00 Save_Control = Control_Data; // Save Last Invoice / Item
0077.00
</SNIP>

Set break point on line 64 and 76.
Debug stops at line 76, but never at 64.
Using Step mode, I have determined that line 64 is sometimes executed, but I
never get a breakpoint.

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









----- Original Message ----
From: Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx>
To: Websphere Development Studio Client for iSeries <wdsci-l@xxxxxxxxxxxx>
Sent: Monday, April 23, 2007 12:11:01 PM
Subject: Re: [WDSCI-L] SEP Debug

From: Jeff Young

</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>

Jeff, you've got some serious indent issues there, or some missing code.

From what I can tell, the line at 7600 doesn't line up with anything, while

I don't see any Endifs for either line 6300 or 6400.

Joe