Re: SEP Debug

[Jeff Young <cooljeff913@xxxxxxxxx>]

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