Re: Resetting %EOF

[RIMMA.POLISHUK@xxxxxxxxxxxx]

Hello All!
This is my first E-mail to a crowd.... and my first RPGILESQL program. I am
maintaining an inquiry program with SQL statements.
Here is an entry screen:
 RO NO.....  000000000
 Vendor....:
 S/N.......:
 Part Code.: 99  99 99
 Vendor P/N:
 Owner.....:

                 From         To
 Date......: 00000000   99999999
             fmfdfcfy   tmtdtcty

 If I enter Part code and From or To date, the programs displays correct
selections, if I enter date range, it give an error message that no records
found, even records are exist in a file.
The code is:
 C/EXEC SQL
 C+ DECLARE C3 CURSOR FOR
 C+ SELECT all *   FROM PFfile
 C+ WHERE  SNCHP=:CHP AND SNSEC=:SEC AND SNPRT=:PART
 C+ AND SNSCC >=:FC AND SNSCC <=:TC
 C+ AND SNSYY >=:FY AND SNSYY <=:TY
 C+ AND SNSMM >=:FM AND SNSMM <=:TM
 C+ AND SNSDD >=:FD AND SNSDD <=:TD
 C+ AND SNRCD='A'
 C+ ORDER BY SNNUM
 C/END-EXEC
  *
 C/EXEC SQL OPEN C3
 C/END-EXEC
 C*

I went through debug and both dates are displays ok. Any ideas? Thank you,
Rimma.


------------------( Forwarded letter 1 follows )---------------------
Date: Thu, 6 Jun 2002 09:37:52 -0400
To: rpg400-l@midrange.com
From: Juan_Robledo@irco.com
Sender: rpg400-l-admin@midrange.com
Reply-To: rpg400-l@midrange.com
Subject: Re: Resetting %EOF


here is  a some of the code


 C     KlistB        SetLL     IN057P2

 C                        DOW       Not %EOF(IN057P2)
 C     KlistB        ReadE     IN057P2
 C                        If        %EOF(IN057P2)
 C                              Leave
 C                       EndIf


Juan Robledo
Programmer Analyst

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.