SQL0104N error while precompiling embedded sql programs on DB2 UDB V8,1 -WINDOWs

[Shivprakash]

Hi..

SQL0060W The "COBOL" precompiler is in progress.
39 SQL0062W Starting INCLUDE of file "C:\Program
Files\SQLLIB\INCLUDE\COBOL_A\JCSD006.sqb".
39 SQL0063W Completed INCLUDE of file "JCSD006.sqb".
41 SQL0062W Starting INCLUDE of file "C:\Program
Files\SQLLIB\INCLUDE\COBOL_A\JCSD005.sqb".
41 SQL0063W Completed INCLUDE of file "JCSD005.sqb".
43 SQL0062W Starting INCLUDE of file
"C:\opt\cics\bin\copy\CONTRACT.sqb".
25 SQL0062W Starting INCLUDE of file
"C:\opt\cics\bin\copy\JCTDLOC_LOCTAB.cbl".
25 SQL0063W Completed INCLUDE of file "JCTDLOC_LOCTAB.cbl".
31 SQL0104N An unexpected token "C1" was found following
"DECLARE CURSOR ". Expected tokens may include:
"CURSOR".
SQLSTATE=42601
57 SQL0104N An unexpected token "C1" was found following
"OPEN". Expected tokens may include:
"<identifier>".
59 SQL4946N The cursor or statement name "C1" is not defined.
43 SQL0063W Completed INCLUDE of file "CONTRACT.sqb".
49 SQL0062W Starting INCLUDE of file "C:\Program
Files\SQLLIB\INCLUDE\COBOL_A\JCSD006.sqb".
49 SQL0063W Completed INCLUDE of file "JCSD006.sqb".
50 SQL0062W Starting INCLUDE of file "C:\Program
Files\SQLLIB\INCLUDE\COBOL_A\DTUT004C.sqb".
9 SQL0008N The token "OCCURS" found in a host variable
declaration is not valid.
13 SQL0008N The token "9" found in a host variable
declaration is not valid.
16 SQL0008N The token "9" found in a host variable
declaration is not valid.
50 SQL0063W Completed INCLUDE of file "DTUT004C.sqb".
SQL0095N No bind file was created because of previous
errors.
SQL0091W Precompilation or binding was ended with "7"
errors and "0" warnings.

31 SQL0104N An unexpected token "C1" was found following
"DECLARE CURSOR ". Expected tokens may include:
"CURSOR".
SQLSTATE=42601
is for source statments below..
009200 EXEC SQL
DECLARE CURSOR C1 FOR
009400 SELECT ACCOUNT FROM JCTDLOC_LOCTAB
018580 WHERE (OFFICE_LOCATION) = 'OFFCHI'
INTO :ACCOUNT
009700 FOR FETCH ONLY
009800 END-EXEC.
00980000

Files\SQLLIB\INCLUDE\COBOL_A\DTUT004C.sqb".
9 SQL0008N The token "OCCURS" found in a host variable
declaration is not valid.
is for ....
000100*************************************************
00010000
000200* DESKTOP ADDRESS USAGE UPDATE DATA RECORD
00020000
000300*
00030000
000400*************************************************
00040000
000500 01 DTUT004C.
00050000
001110 05 DT-CUST-DBA-NAME-SHORT PIC X(15).
00111007
001111 05 DT-CODE-DBA-FK PIC X(24).
00111104
001120 05 DT-ADDR-DATA-AREA.
00112004
001200 10 DT-ADDR-DATA OCCURS 2 TIMES.
00120003
001300 15 DT-UPDATE-TYPE PIC X(04).
00130005
001400 88 DT-UPDATE-CONTR VALUE 'CONT'.
00140005
001500 88 DT-UPDATE-CUST VALUE 'CUST'.
00150005
001800 15 DT-OLD-ADDR-CODE PIC 9(03).
00180000
001900 15 DT-OLD-ADDR-CODE-R REDEFINES DT-OLD-ADDR-CODE
00190000
002000 PIC X(03).
00200000
002100 15 DT-NEW-ADDR-CODE PIC 9(03).
00210000
002200 15 DT-NEW-ADDR-CODE-R REDEFINES DT-NEW-ADDR-CODE
00220000
002300 PIC X(03).
00230000
002400 05 DT-ERROR-MSG PIC X(53).
00240000
002500 05 DT-ERROR-CODE.
00250000
002600 10 DT-IO-ERROR PIC X(04).
00260000
002700 10 DT-DB-ERROR PIC X(04).
00270000

Please help me resolve the errors.
Regards,
Shiv

[PM (pm3iinc-nospam)]

Use
DECLARE C1 CURSOR FOR ...
NOT
DECLARE CURSOR C1 FOR ...

>>-DECLARE--cursor-name--CURSOR--+-----------+------------------>
'-WITH HOLD-'

>--+----------------------------+--FOR--+-select-statement-+---><
| .-TO CALLER-. | '-statement-name---'
'-WITH RETURN--+-----------+-'
'-TO CLIENT-'

PM

"Shivprakash" <shivprak...@tcs.com> a écrit dans le message de
news:841e256a.04032...@posting.google.com...

[Serge Rielau]

The INTO clause also seems wrong

--
Serge Rielau
DB2 SQL Compiler Development
IBM Toronto Lab