Re: RUNSQLSTM

Put a semicolon at the end of each statement.  Like, at the end of line 2 
and line 4.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Tim Ellifritz" <tim@xxxxxxxxxxxxxxxxxxxxxxxxx> 
Sent by: midrange-l-bounces+rob=dekko.com@xxxxxxxxxxxx
10/08/2004 02:05 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
<midrange-l@xxxxxxxxxxxx>
cc

Fax to

Subject
RUNSQLSTM






I'm a greenhorn,

Trying to use SQL statements in CL program to update a temp file for a
report.
Using CSSTKN3 to run SQL statements in CSSTKN4...

CSSTKN3 - Source

1.00              PGM
2.00              RUNSQLSTM  SRCFILE(R36MODS/QCLSRC) SRCMBR(CSSTKN4) +
3.00              COMMIT(*NONE)
4.00              ENDPGM


CSSTKN4 - Source

01.00              CREATE TABLE QTEMP/TBLSTKN (ITEM CHAR (20 ) NOT NULL 
WITH
DEFAULT,
02.00              QTY DEC (10 , 4) NOT NULL WITH DEFAULT)
03.00              INSERT INTO QTEMP/TBLSTKN SELECT IJITEM , SUM(IJQTY) 
FROM
CSSTKN
04.00              GROUP BY IJITEM

What looks wrong? - Table gets created but having problem with insert I
think.

DUMP attached...




Tim Ellifritz
Creative Stage Lighting Co., Inc.
149 Rt. 28N
North Creek, NY 12853
T 518-251-3302 X 218
F 518-251-2908

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

            Message                               Message                 From  
                       To                    
Time        ID                  Sev       Type    Text                    
Program          Inst        Program          Inst 
141225      SQL9010             30        ESC     RUNSQLSTM command faile 
QSQSCHEM         078F        CSSTKN3          000C 
                                                  d.                            
                                             
141225      CPF9999             40        ESC     Function check. SQL9010 
QMHUNMSG         0000        CSSTKN3          000C 
                                                   unmonitored by CSSTKN3       
                                             
                                                   at statement 200, inst       
                                             
                                                  ruction X'000C'.              
                                             
                                                            Variables           
                                             =