Re: SQLCODE -104

I think you have extra commas after AS "DIRECTORY" and also after GROUP 
BY.

    Alexei Pytel
always speaking for myself





"Gary Kuznitz" <docfxit@xxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
04/21/2003 06:45 PM
Please respond to Midrange Systems Technical Discussion

 
        To:     Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
        cc: 
        Subject:        SQLCODE -104



Hi,

I'm trying to run SQL.  I'm getting an error saying:
Message . . . . :   RUN QUERY command failed with SQLCODE -
104. 
Cause . . . . . :   The SQLCODE is -104. The SQLSTATE is 42601. 
The DB2 SQL 
  OS/400 message text for this error is: Token <END-OF-
STATEMENT> was not valid. Valid tokens: + - AS <IDENTIFIER>.   

The source statements in a source member are:
SELECT                                                          + 
        COUNT(*) AS "NUMBER OF OBJECTS",                        + 
        SUM(CAST(ST_SIZE AS DEC(31))) AS "FILE SIZE",           + 
        SUM(CAST(ST_ALLOCSZ AS DEC(31))) AS "ALLOCATED 
SIZE",   + 
        SUBSTR(DIRNAME,1,200) AS "DIRECTORY",                   + 
FROM                                                            + 
        QRYIFSLIB                                               + 
GROUP BY,                                                       + 
              SUBSTR(DIRNAME,1,200) 

I created the above source object with:
CRTQMQRY QMQRY(GARY1/IFSLISTRUN)  + 
SRCFILE(GARY1/QCLSRC) SRCMBR(IFSLISTQRY) 

I am runing it in a cl pgm with:
STRQMQRY   QMQRY(GARY1/IFSLISTRUN) 

Does anyone have any idea what might be causing this error?

TIA,

Gary Kuznitz
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.