ORA-02006: invalid packed decimal format string

Hi,

I'm trying to mix PRO*COBOL and OCI calls, however when I try to obtain the LDA I got strange error message. Here is a sample program which demontrates the error:

When I comment the sqllda call the program displays 1234, otherwise I got:

Connected to Oracle

ORACLE ERROR DETECTED: ORA-02006: invalid packed decimal format string

I'm using MicroFocus COBOL 4.1 on SUN Solaris with Oracle 8.1.5 and PRO*COBOL 8.1.5.

       ID DIVISION.
       PROGRAM-ID. OCITEST.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           EXEC SQL INCLUDE SQLCA END-EXEC.

           EXEC SQL BEGIN DECLARE SECTION END-
EXEC.
       01  USERNAME          PIC X(10) value "xx".
       01  PASSWD            PIC X(10) value "xx".
       01  WS-CD-NO          PIC 9(12) value 0.

       01  LDA.
           02 LDA1-V2RC  PIC S9(4) COMP.
           02 FILLER     PIC X(10).
           02 LDA1-RC    PIC S9(4) COMP.
           02 FILLER2    PIC X(50).
           EXEC SQL END DECLARE SECTION END-EXEC.

       PROCEDURE DIVISION.
           EXEC SQL WHENEVER SQLERROR
              DO PERFORM SQL-ERROR END-EXEC.

           EXEC SQL
               CONNECT :USERNAME IDENTIFIED
BY :PASSWD
           END-EXEC.
           DISPLAY "Connected to Oracle".^M

           CALL "sqllda" using LDA.

           EXEC SQL
                SELECT 1234 INTO :WS-CD-NO
                FROM dual
           END-EXEC.
           DISPLAY "WS-CD-NO = " WS-CD-NO.
           STOP RUN.

       SQL-ERROR.
           EXEC SQL WHENEVER SQLERROR CONTINUE
END-EXEC.
           DISPLAY " ".
           DISPLAY "ORACLE ERROR DETECTED:".
           DISPLAY " ".
           DISPLAY SQLERRMC.
           EXEC SQL ROLLBACK WORK RELEASE END-
EXEC.
           STOP RUN.

Sent via Deja.com http://www.deja.com/
Before you buy. Received on Mon Feb 07 2000 - 03:47:48 CST