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



as of v5r4 the SET OPTION *must* be the first SQL statement in the source
member.

Thanks,
Tommy Holden



From:
Bruce Collins <Bruce.Collins@xxxxxxxxxxxxx>
To:
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
Date:
07/11/2008 01:43 PM
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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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.