Re: SQL zero out my Num fields, WHY??

Which numeric field?

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 




"Juan Robledo" <Juan_Robledo@xxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/01/2003 10:59 AM
Please respond to RPG programming on the AS400 / iSeries
 
        To:     RPG programming on the AS400 / iSeries 
<rpg400-l@xxxxxxxxxxxx>
        cc: 
        Fax to: 
        Subject:        SQL zero out my Num fields, WHY??



Hi,

I keep having this same problem, I have a numical field that keeps being
changed/zero out after an SQL.
What am i doing wrong????

TIA

Example:

0515.00 C     Back2Zero     BegSr
0516.00 ***  Returns PRQSTA back to Zero (if it is still in the subfile)
0517.00 ***
0518.00 C                   DO        Rrn           Y                 4 0
0519.00 C     Y             Chain     ScnSfl
0520.00 C                   If        Not %found
0521.00 C                   Iter
0522.00 C                   EndIf
0523.00 C/EXEC SQL
0524.00 C+ UPDATE PPA SET PRQSTA = 0, PCHBY = :user, PDTCH = :chdate,
0525.00 C+ PTMCH = :chtime Where PRQNUM = :SFRQNUM
0526.00 C+ with NC
0527.00 C/END-EXEC
0528.00 C                   ENDDO
0529.00
0530.00 C                   EndSr



Juan Robledo
Programmer Analyst


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