RE: SQL0084

["Zachary Johnson" <ZJohnson@xxxxxxxxxxxxx>]

The only thing I can think of is that the set option statement has to be
the first SQL statement in the program.  So if there are other SQL
statements above that (physically above it not logically) it won't
compile. 

~Zach
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bruce Collins
Sent: Friday, July 11, 2008 1:33 PM
To: RPG programming on the AS400 / iSeries
Subject: SQL0084

We just upgraded a partition from V5R3M0 to V5R4M0 with latest CUME,
Hipers and Groups. When Trying to compile an SQLRPGLE program I am now
getting this error. It works fine under V5R3. Any ideas.

Thanks

Hoss


  pgetChildren      b
     dgetChildren      pi
      /free
       // *****************************************************
       EXEC SQL
Line 163 -->  SET OPTION NAMING = *SQL, DATFMT = *ISO, COMMIT=*NONE,
           CLOSQLCSR = *ENDMOD;
         // By using the PREPARE statement it allows us to send the
statement
         // to the SQL engine for analysis.
       Exec Sql
         Prepare S1 From :Sql;
         // The Declare statement analyzes its associated SQL Statment,
         // determines that columns are returned, and defines a record
buffer
         // to hold the data that will be returned when the statement
executes.
       Exec Sql
         Declare C1 Cursor For S1;
         // I just named the Cursor C1. I cold have named it anything.
         // the Open statement Identifies which SQL Cursor to open.

       SQL = %TRIM(SQL) + SELECT;
       SQL = %TRIM(SQL) + RQUOTE + NATLCUSTIN + RQUOTE;
       SQL = %TRIM(SQL) + SELECT2



5722ST1 V5R4M0 060210            Create SQL ILE RPG Object
RPNATLCUSX                  07/11/08 08:18:44          Page   1
Source type...............RPG
Object name...............LAWAAA/RPNATLCUSX
Source file...............LAWAAA/QRPGLESRC
Member....................RPNATLCUSX
To source file............QTEMP/QSQLTEMP1
Options...................*XREF
RPG preprocessor options..*NONE
Listing option............*NONE
Target release............V5R4M0
INCLUDE file..............*SRCFILE
Commit....................*CHG
Allow copy of data........*OPTIMIZE
Close SQL cursor..........*ENDACTGRP
Allow blocking............*ALLREAD
Delay PREPARE.............*YES
Generation level..........10
Printer file..............*LIBL/QSYSPRT
Date format...............*JOB
Date separator............*JOB
Time format...............*HMS
Time separator ...........*JOB
Replace...................*YES
Relational database.......*LOCAL
User .....................*CURRENT
RDB connect method........*DUW
Default collection........*NONE
Dynamic default
  collection..............*NO
Package name..............*OBJLIB/*OBJ
Path......................*NAMING
SQL rules.................*DB2
Created object type.......*PGM
Debugging view............*NONE
User profile .............*NAMING
Dynamic user profile......*USER
Sort sequence.............*JOB
Language ID...............*JOB
IBM SQL flagging..........*NOFLAG
ANS flagging..............*NONE
Text......................*SRCMBRTXT
Source file CCSID.........37
Job CCSID.................37
Decimal result options:
  Maximum precision.......31
  Maximum scale...........31
  Minimum divide scale....0
Compiler options..........*NONE
Source member changed on 07/08/08  14:40:31
5722ST1 V5R4M0 060210            Create SQL ILE RPG Object
RPNATLCUSX                  07/11/08 08:18:44          Page   2
Record  *...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6
...+... 7 ...+... 8   SEQNBR  Last change       Comments
  164              CLOSQLCSR = *ENDMOD;
16400   07/08/08
  164              CLOSQLCSR = *ENDMOD;
16400   07/08/08
  164              CLOSQLCSR = *ENDMOD;
16400   07/08/08
5722ST1 V5R4M0 060210            Create SQL ILE RPG Object
RPNATLCUSX                  07/11/08 08:18:44          Page   3M1
                                             DIAGNOSTIC MESSAGES
MSG ID  SEV  RECORD  TEXT
SQL5066   0     163  Precompile option NAMING changed by SET OPTION
statement.
SQL5066   0     163  Precompile option COMMIT changed by SET OPTION
statement.
SQL5066   0     163  Precompile option DATFMT changed by SET OPTION
statement.
SQL5066   0     163  Precompile option CLOSQLCSR changed by SET OPTION
                     statement.
SQL5066   0     163  Precompile option NAMING changed by SET OPTION
statement.
SQL5066   0     163  Precompile option COMMIT changed by SET OPTION
statement.
SQL5066   0     163  Precompile option DATFMT changed by SET OPTION
statement.
SQL5066   0     163  Precompile option CLOSQLCSR changed by SET OPTION
                     statement.
SQL0084  30     163  Position 26 SQL statement not allowed.
                    Message Summary
  Total     Info   Warning      Error   Severe  Terminal
     15       12         0          0        3         0
30 level severity errors found in source
  385 Source records processed
                               * * * * *  E N D  O F  L I S T I N G  * *
* * *

Bruce "Hoss" Collins
Project Leader/System i Administration
AAA Cooper Transportation
(334) 671-3106