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



Make sure you compile with COMMIT(*NONE).

Phil



                      THarteau@felkerb
                      rothers.com              To:      RPG400-L@midrange.com
                      Sent by:                 cc:
                      rpg400-l-admin@m         Subject: SQL Problem
                      idrange.com


                      12/20/2002 09:14
                      AM
                      Please respond
                      to rpg400-l






Hi,
      I have been using SQL for a bit now and was getting pretty confident
about it. Now I'm getting an error I don't understand. I have the following
statement in an RPG program to update all the records that meet the
criteria:
      C/EXEC SQL
      C+ UPDATE FLTL03 SET TFWSID = :WSIDJ, LTSTS = '1S'
      C+  WHERE TFWSID = :WSIDS AND LTSTS = '  '
      C/END-EXEC

Its not working.  I am getting SQL error code 7008. We don't journal any
files, and this is the only place in the program I use this file.  This is
in my test environment.  I was using the physical file first, and that
didn't work either. Any ideas on how to make this work?

This is my job log:
      Query options retrieved file QAQQINI in library QUSRSYS.
      **** Starting optimizer debug message for query .
      Query options used to build the OS/400 query access plan.
      All access paths were considered for file FLTL03.
      Additional access path reason codes were used.
      Arrival sequence access was used for file FLTL03.
      Member FLTL03 not journaled to journal *N.
      FLTL03 in V64BPCSTF not valid for operation.
      SQLCOD = -000007008.

The details in my job log for the error code are:
      Message type . . . . . :   Information
      CCSID  . . . . . . . . :   65535

      From program . . . . . . . . . :   QTENPTS
        From library . . . . . . . . :     QSYS
        From module  . . . . . . . . :     TESDMSG
        From procedure . . . . . . . :     Process_Error_Code
        From statement . . . . . . . :     7

      To program . . . . . . . . . . :   QTESTOPH
        To library . . . . . . . . . :     QSYS
        To module  . . . . . . . . . :     QTESTOPH
        To procedure . . . . . . . . :     main
        To statement . . . . . . . . :     199


<===================================================>

Terri Harteau
****************
"There's no point in being grown up if you can't be childish sometimes."
- Dr. Who
****************






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







As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.