Re: SQL Problem

[phillip.groschwitz@xxxxxxxxx]

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.