Prev: MS COBOL 5.0
Next: Visual Cobol
From: Simon Tobias on 10 Jun 2005 10:59
> When I do a ncobol sortjeff
>
> I get 10 errors:
>
> 005166 EXEC SQL BEGIN DECLARE SECTION END-EXEC.
> * 149-S********
> **
> ** No SQL directives have been set

<snip>

You appear to be compiling the original, unprocessed source here, rather
than the output from the precompiler.

cob -it sortjm.cob

should compile the correct source (I assume that ncobol is a shell script?).

SimonT.


From: Frederico Fonseca on 10 Jun 2005 12:56
On 10 Jun 2005 07:35:54 -0700, "Jeff" <jmoore207(a)hotmail.com> wrote:

>Frederico,
>
>I have written the program and I do a
>
> procob /cadevel/symbolic/sortjm.cbl /cadevel/symbolic/sortjm.cob
>I get the message
>
>System default option values taken from:
>/u00/app/oracle/product/10.1.0/client/p
>recomp/admin/pcbcfg.cfg

Within the Oracle/product/... structure you should have a few
makefiles and samples of how to compile a .pco ESQL source.

Search for them and see how it is done within your system.




Frederico Fonseca
ema il: frederico_fonseca at syssoft-int.com
From: Jeff on 15 Jun 2005 08:19
I am trying to run my script. It does the truncate table part

SQL> select count(*) from coboltest;

COUNT(*)
----------
0

Elapsed: 00:00:00.01

When it tries to do the first insert, I get the error message below.
01 SQ0001 GLOBAL.
02 FILLER PIC X(25) VALUE "truncate TABLE COBOLTEST".


01 SQ0002 GLOBAL.
02 FILLER PIC X(150) VALUE "insert into
COBOLTEST(MBRSEP,IMA
- "XSOFT13_PATH_01,IMAXSOFT13_SEQ_NO)(select MBRSEP ,0 ,0
f
- "rom MBRSEPMSTR where MBRSEP<>'0000000000' order by
MBRSEP)".

EXEC SQL INSERT INTO COBOLTEST
( MBRSEP, IMAXSOFT13_PATH_01, IMAXSOFT13_SEQ_NO)
(SELECT MBRSEP, 0, 0
FROM MBRSEPMSTR
WHERE MBRSEP != '0000000000'
ORDER BY MBRSEP)
END-EXEC.
CALL "SQLADR" USING SQ0002 SQL-STMT
MOVE 1 TO SQL-ITERS
MOVE 20 TO SQL-OFFSET
MOVE 0 TO SQL-OCCURS
CALL "SQLADR" USING
SQLCUD
SQL-CUD
CALL "SQLADR" USING
SQLCA
SQL-SQLEST

06/15/05 BEGIN BILLING DATABASE SORT 08:13 AM

ORACLE ERROR DETECTED:

ORA-00907: missing right parenthesis

Does anyone have any thoughts of what I am doing wrong? I am kind of
out on an island with nobody to go to! Any help would be greatly
appreciated.

From: Richard on 15 Jun 2005 15:10
02 FILLER PIC X(150) VALUE "insert into

Perhaps the literal is more than 150.

First  |  Prev  | 
Pages: 1 2 3
Prev: MS COBOL 5.0
Next: Visual Cobol