|
Pros,I am trying to execute this simple update statement. The program compiles and it runs and gives the dsply message but the file is not updated. Am I doing something wrong here? I would really appreciate it if somebody can point me in the right direction.
midrange.com
=============================================================
FCUST UF E DISK RENAME(CUSTR:CSREC)
/FREE
DoW not %eof(CUST);
Read CUST;
If not %eof(CUST);
Exsr UpdateCSREC;
EndIf;
EndDo;
dsply 'UPDATE SUCCESSFUL';
/END-FREE
/FREE
BegSR UpdateCSREC;
/END-FREE
C/EXEC SQL
C+ UPDATE TESTING/CUST SET CUSSTA = 'TX'
C+ WHERE CUSSTA = 'TN'
C/END-EXEC
/FREE
*inlr = *on;
EndSR;
/END-FREE
=============================================================
Cheers,
Mike.
_________________________________________________________________
Don?t just search. Find. Check out the new MSN Search!
http://search.msn.click-url.com/go/onm00200636ave/direct/01/
As an Amazon Associate we earn from qualifying purchases.
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.
