× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. April 2003

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.