Re: SEP Debug

Control_Data is a data structure, and Save_Control is a field defined like
Control Data
D Control_Data Ds
D xjCmp Like(IjCmp)
D xjCust Like(IjCust)
D xjInv Like(IjInv)
D xjItem Like(IjItem)

D Save_Control S Like(Control_Data)

Is it possible that the SEP debugger is not comparing the values as character
strings?

Using STEP mode, I have determined that I am never getting EOF on line 63.

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: Mike Tobey <Mike.Tobey@xxxxxxxxxxxxxxxxx>
To: Websphere Development Studio Client for iSeries <wdsci-l@xxxxxxxxxxxx>
Sent: Monday, April 23, 2007 12:17:15 PM
Subject: Re: [WDSCI-L] SEP Debug


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