× 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.



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.

=============================================================
    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 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.