Semantics

Dear Sirs,

We are having problem to execute the following in the command Line of Visual Cobol for Eclipse :

cob -C "P (cobsql) end-c SQLCheck == SEMANTICS endp"

Many Thanks,

 

PJM

  • Do you mean in the DevHub product instead of "in Visual COBOL for Eclipse?"

    On what OS?

    What is the error that you receive?

    Thanks.

  • The error screenshot does not correspond to the command that you showed in your initial post. Your initial post shows cob which is the command under Unix/Linux which is why I assumed that you were using DevHub.

    Please see the product documentation under Reference-->Command line reference-->compiling from command line as the cobol command uses different syntax than the cob command.

    You are also not specifying a program name so it is unclear what you are actually trying to do.

    From the docs under Data Access-->cobsql the following is an example of how the command line should look when compiling using cobsql and pro*cobol on Windows:

    cobol testprog p(cobsql) csqlt=ora makesyn end-c

         xref=yes mode=ansi endp list();

    Thanks.

  • Dear Chris,

    cobol testprog p(cobsql) csqlt=ora makesyn end-c  xref=yes mode=ansi endp list();

    This RUN in Visual Cobol for Eclipse for Windows. But when I try todo the same in a Shell of Compilation in UNIX AIX and don´t Run.

    Could you please say to me how I have to do this in a shel in UNIX AIX ???

    Many Thaks in advanced.

    PJM

  • Please see the documentation under Preprocess(cobsql) directive here:

    This shows several examples of how to use this directive from the command line.

    Thanks.

  • Hi

    Sorry these are just quick rough notes.

    If this is a new development then think about using open esql some simple examples in $COBDIR/demo/sql/openesql

    This would mean your code is note tied to oracle.

    Your question is about oracle.

    The IDE is setup to use cobsql this will call oracle procob by default.

    Using cobsql will mean you will be able to debug your actual code and not the output from the procob precompilier.

    I would do my first compile using the command line

    Check you oracle installation points to the correct procob command

    /home1/support/support/tonyt/procobol >which procob

    /home/products/oracle/11gR2/client_32/bin/procob

    Whilst you are installing the full client software install everything to get procob installed.

    Some installation information

    docs.oracle.com/.../oui4_product_install.htm

    Install the examples all of them.

    Interesting maybe

    www.oratoolkit.ch/.../eeSrv-11g-R2-on-RHEL-6.0-x86_64.php

    http://www.orafaq.com/wiki/SQL*Plus_FAQ

    Micro focus documentation

    documentation.microfocus.com/.../BKDBDBCSQL.html

    The procob examples have a make file so you will see the compile command and the directives used this should be your base compile command. These are good reference points.

    If you want to see how procob works then run the example make file, make sure cobsetenv has been run.

    See setup.sh script.

    This procob document is also good

    docs.oracle.com/.../pco08err.htm

    I did find once a document on the oracle installation, but you will need to go and find it.

    I would set a side a good day to do this.

    They have a product oracle sql developer this is worth getting you will need x11 setup thou.

    COBSQL does use the procob compilier

    To execute cobsql from the command line

    Below is a

    setup.sh

    >>>>>>>>

    /home1/support/support/tonyt/procobol >cat setup.sh

    #

    # setup oracle

    #

    export ORACLE_HOME=/home/products/oracle/11gR2/client_32

    export PATH=$ORACLE_HOME/bin:$PATH

    export LIBPATH=$ORACLE_HOME/lib:$LIBPATH

    export ORACLE_SID=ORA62SUPXE

    export TWO_TASK=$ORACLE_SID

    #

    # contents of tnsnames.ora

    #

    cat $ORACLE_HOME/network/admin/tnsnames.ora | head -12

    #

    JAVA_HOME=/usr/java6

    export JAVA_HOME

    PATH=$HOME/bin:$JAVA_HOME/bin:/sbin:/usr/sbin:$PATH

    export PATH

    LANG=en_US

    export LANG

    TERM=ansi

    export TERM

    #

    # this set env for visual cobol development HUB

    #

    . /home/products/vcdevhub22/bin/cobsetenv

    COBMODE=32

    export COBMODE

    #

    # set up path so that ant build script is accessable

    #

    PATH=$COBDIR/remotedev/ant/apache-ant-1.7.1/bin:$PATH:

    export PATH

    #

    # test it

    #

    cob -V

    java -version

    #

    # end

    #

    >>>>>>>

    buildit.sh builds a .o object

    >>>>>>>>>

    /home1/support/support/tonyt/procobol >cat buildit.sh

    #

    # lets produce a 32 bit executable using cobsql.

    #

    export COBMODE=32

    #

    # this works

    #

    #cob -xgt -C anim -v -k oraclecursor.cbl -C"p(cobsql) makesyn sqldebug debugfile end-c verbose xref==yes mode==ansi endp list()" $ORACLE_HOME/precomp/lib/cobsqlintf.o -L$ORACLE_HOME/lib/ -lclntsh -Nnolitlink

    #

    # customer one

    #

    # the compile command only has a small number of characters so use a config file.

    #

    COBCONFIG=$PWD/rtcob.cfg

    export COBCONFIG

    cat >$COBCONFIG << EOF

    set cobconfig_error_report=TRUE

    set core_on_error=3

    set CORE_FILENAME="$PWD/core%f%d%t"

    EOF

    #

    # lets just put some test oracle configs into a infile

    #

    examplecfg=$PWD/example.cfg

    export examplecfg

    cat >$examplecfg << EOF

    PAGELEN=10000

    MAXOPENCURSORS=250

    MODE=ORACLE

    CLOSE_ON_COMMIT=YES

    DECLARE_SECTION=NO

    END_OF_FETCH=100

    HOLD_CURSOR=NO

    RELEASE_CURSOR=NO

    IRECLEN=250

    ORECLEN=250

    UNSAFE_NULL=YES

    DBMS=V8

    COMP5=NO

    SQLCHECK=FULL

    userid=user/password@ORA62SUPXE

    EOF

    #

    # this outputs a object file .o

    #

    cob -xcgt -C anim -v -k oraclecursor.cbl -C"p(cobsql) makesyn sqldebug debugfile end-c verbose config==$examplecfg P(cp) sy endp endp list() listwidth=132" -o oraclecursor.o

    #

    # end

    #

    >>>>>>>>>

    There is a config parameter you will need

    Include=/mycopybooks

    Here is a simple dummy program change password and user

    oraclecursor.cbl

    >>>>>>>>>

    /home1/support/support/tonyt/procobol >cat oraclecursor.cbl

          program-id. oraclecursor as "oraclecursor".

          environment division.

          configuration section.

          data division.

          working-storage section.

              exec sql include sqlca end-exec.

         *> after an sql error this has the full message text openesql

          01  mfsqlmessagetext                      pic x(250).

              01  ans                                   pic x(1).

          01  abort-flag                            pic x value "N".

              88  not-in-abort                            value "N".

              88  in-abort                                value "Y".

              exec sql begin declare section end-exec.

              01  username                          pic x(10).

              01  passwd                            pic x(10).

              01  oracletime                        pic x(23) value " ".

              01  int-col                           pic S9(4) comp-5.

              01  rec-col.

                  03  char-col                      pic x(10).

                  03  dec92                         pic s9(7)V99 comp-3.

                  03  testnull-col                  pic x(3).

              01  rec-col-null.

                  03  testnull-col-null            pic s9(4) comp.

              exec sql end declare section end-exec.

          01  full-rec.

              03  char-col-2                        pic x(10).

              03  int-col-2                         pic s9(4) comp-5.

              03  dec92-2                           pic s9(7)V99 comp-3.

              03  testnull-col-2                    pic x(3).

          procedure division.

          main section.

          main-010.

              display "main Started >>>>"

              perform init

              if not-in-abort

                  perform work

              end-if

              perform fini

              display "main press any key to return"

              accept ans

              .

          main-090.

              goback.

          init section.

          init-010.

              display "init Started >>>>"

              set not-in-abort to true

              exec sql whenever sqlerror do perform sqlerror end-exec

              exec sql whenever sqlwarning do perform sqlwarning end-exec

              exec sql whenever not found continue end-exec

              move "user" to username.

              move "password" TO passwd.

              exec sql

                 connect :username identified by :passwd

              end-exec.

         *>

         *> let test we can get data from data base

         *>

              exec sql

                  select to_char(systimestamp, 'DD/MM/YYYY HH24:MI:SS')

                      into :oracletime from dual

              end-exec

              display "time from database <", oracletime, ">"

              .

          init-090.

              exit.

          work section.

          work-010.

              display "work Started >>>>"

         *>

         *> drop table create new table

         *> populate this table with 2 rows

         *>

              display "work drop table >>>>"

              exec sql

                  drop table mfsqltest

              end-exec

              display "work create table >>>>"

              exec sql

                  create table mfsqltest (

                      char_col            char(10),

                      int_col             integer not null,

                      dec92               decimal(9,2),

                      testnull_col        char(3))

              end-exec

              display "work create row 1 using host variables >>>>"

              move "ORIGINAL" to char-col

              move 9999 to int-col

              move 1234567.12 to dec92

              exec sql

                  insert into mfsqltest

                      (char_col,int_col,dec92,testnull_col) values

                      (:char-col, :int-col, :dec92, NULL)

              end-exec

              display "work insert row 2 using host record >>>>"

              move "NEW" to char-col

              move 1111 to int-col-2

              move 98765.43 to dec92-2

              move "DTM" to testnull-col-2

              exec sql

                  insert into mfsqltest

                      values

                      (:full-rec)

              end-exec

              display "work commit work >>>>"

              exec sql

                  commit work

              end-exec

         *>

         *> lets test a update of a row

         *>

              display "work update row >>>>"

              move "UPDATED" to char-col

              move 9999 to int-col

              move 7654321.21 to dec92

              exec sql

                  update mfsqltest set char_col = :char-col,

                                       dec92 = :dec92

                      where int_col = :int-col

              end-exec

              display 'work Verify updated data before rollback >>>>'

              display "work test the null column processing"

              initialize full-rec

              move 9999 to int-col

              exec sql

                 select * into :full-rec

                       from mfsqltest

                       where int_col = :int-col

              end-exec

              display 'work rollback >>>>'

              exec sql

                  rollback

              end-exec

              display 'work Verify data after rollback using cursor >>>>'

              exec sql

                  declare vcurs cursor for

                      select char_col, dec92, testnull_col from mfsqltest

                          where int_col = :int-col

              end-exec

              move 9999 to int-col

              initialize rec-col

              exec sql

                  open vcurs

              end-exec

              display 'work fetch row-col 1 >>>>'

              exec sql

                  fetch vcurs into :rec-col

              end-exec

              display 'work test past end of fetch >>>>'

              exec sql

                  fetch vcurs into :rec-col

              end-exec

              exec sql

                  close vcurs

              end-exec

              .

          work-090.

              exit.

          fini section.

          fini-010.

              display "fini Started >>>>"

                  exec sql commit work release end-exec

              .

          fini-090.

              exit.

          sqlerror Section.

          sqlerror-010.

               display "Error code sqlcode is " sqlcode.

               display "Error message sqlerrmc is " sqlerrmc.

               display "mf mfsqlmessagetext is " mfsqlmessagetext

               display "sqlerror press enter Y to abort :"

               move "N" to ans

               accept ans

               if ans = "Y"

                  move sqlcode to return-code

                  goback

               end-if

               .

          sqlerror-090.

               exit.

          sqlwarning Section.

          sqlwarning-010.

               display "Warning code sqlcode is " sqlcode.

               display "Warning message sqlerrmc is " sqlerrmc.

               display "mf mfsqlmessagetext is " mfsqlmessagetext

               if sqlwarn1 equal "W"

                   display "Data has been truncated.".

               if sqlwarn2 equal "W"

                   display "A null value was eliminated from the argument

         -                 " set of a function.".

               if sqlwarn3 equal "W"

                   display "An into clause had too many or too few host

         -         " variables.".

               if sqlwarn4 equal "W"

                   display "A dynamic update or delete was lacking a where

         -         " clause.".

               if sqlwarn5 equal "W"

                   display "A server conversion or truncation error

         -         " occurred.".

               display "sqlwarning press enter :"

               accept ans

               .

          sqlwarning-090.

              exit.

          end program oraclecursor.

    >>>>>>>>

    Program build

    a command line build to executable

    cob -xgt -C anim -v -k oraclecursor.cbl -C"p(cobsql) makesyn sqldebug debugfile end-c verbose config==$examplecfg P(cp) sy endp endp list() listwidth=132" $ORACLE_HOME/precomp/lib/cobsqlintf.o -L$ORACLE_HOME/lib/ -lclntsh –Nnolitlink

    The output from -v

    cob32 -C nolist -xgt -C anim -v -k oraclecursor.cbl -Cp(cobsql) makesyn sqldebug debugfile end-c verbose config==/home1/support/support/tonyt/procobol/example.cfg P(cp) sy endp endp list() listwidth=132 /home/products/oracle/11gR2/client_32/precomp/lib/cobsqlintf.o -L/home/products/oracle/11gR2/client_32/lib/ -lclntsh -Nnolitlink

    * Micro Focus COBOL                  V2.2 revision 000           Compiler

    * Copyright (C) Micro Focus 1984-2013. All rights reserved.

    * Accepted - verbose

    * Accepted - reentrant

    * Accepted - nolist

    * Accepted - anim

    * Accepted - p(cobsql) makesyn sqldebug debugfile end-c verbose config=/home1/support/support/tonyt/procobol/example.cfg P(cp) sy

    * Accepted - list()

    * Accepted - listwidth(132)

    * Cobsql Integrated Preprocessor

    * Compiling oraclecursor.cbl

    * CSQL-I-004: Accepted makesyn

    * CSQL-I-004: Accepted sqldebug

    * CSQL-I-004: Accepted debugfile

    * CSQL-I-004: Accepted verbose

    * CSQL-I-005: Passing config=/home1/support/support/tonyt/procobol/example.cfg

    * CSQL-I-003: COBSQLTYPE is incorrect defaulting to Oracle

    * CSQL-I-008: Invoking cp Preprocessor

    * CSQL-I-017: Creating "oraclecursor.cs9"

    * CSQL-I-018: Invoking Oracle Precompiler/Translator

    procob iname="oraclecursor.sks" oname="oraclecursor.cs9" lname="oracle

    cursor.lis" config=/home1/support/support/tonyt/procobol/example.cfg >

    "oraclecursor.sdb"

    * Host Variables

    * --------------

    * 03  CHAR-COL OF REC-COL                                 Charf(10)

    *   oraclecursor.sks        26       108       134

    * 03  DEC92 OF REC-COL                                    Decimal(9,2)

    *   oraclecursor.sks        27       108       135

    * 01  FULL-REC                                            Group Item

    *   oraclecursor.sks        33       119       145

    * 01  INT-COL                                             Short Integer

    *   oraclecursor.sks        24       108       136       147       159

    * 01  ORACLETIME                                          Charf(23)

    *   oraclecursor.sks        22        73

    * 01  PASSWD                                              Charf(10)

    *   oraclecursor.sks        20        66

    * 01  REC-COL                                             Group Item

    *   oraclecursor.sks        25       170       175

    * 01  USERNAME                                            Charf(10)

    *   oraclecursor.sks        19        66

    * Copyright (c) 1982, 2009, Oracle and/or its affiliates.  All rights reser

    * SQL Identifiers

    * ---------------

    * BIT32                 DEFINE                        Command Line

    * COMP5                 DEFINE                        Command Line

    * UNIX                  DEFINE                        Pre-defined

    * VCURS                 CURSOR

    *   oraclecursor.sks       157       165       170       175       179       157

    * Copyright (c) 1982, 2009, Oracle and/or its affiliates.  All rights reser

    *                               Precompiler Options

    * ------------------------------------------------------------------------------

    * Option Name    Current Value        Where set

    * ------------------------------------------------------------------------------

    * asacc             no                default

    * assume_sqlcode    no                default

    * auto_connect      no                default

    * charset_picn      nchar_charset     default

    * charset_picx      db_charset        default

    * close_on_commit   yes               /home1/support/support/tonyt/procobol/exam

    * common_parser     no                default

    * comp5             no                /home1/support/support/tonyt/procobol/exam

    * config            /home1/support/supcommand linerocobol/example.cfg

    * cwh_sql99         yes               default

    * date_format       local             default

    * db2_array         no                default

    * dbms              V8                /home1/support/support/tonyt/procobol/exam

    * declare_section   no                /home1/support/support/tonyt/procobol/exam

    * define            BIT32             /home/products/oracle/11gR2/client_32/prec

    *                   COMP5             /home/products/oracle/11gR2/client_32/prec

    *                   *none*            /home/products/oracle/11gR2/client_32/prec

    * dynamic           oracle            mode

    * end_of_fetch      100               /home1/support/support/tonyt/procobol/exam

    * errors            yes               default

    * file_id           0                 default

    * fips              no                default

    * format            ansi              default

    * hold_cursor       no                /home1/support/support/tonyt/procobol/exam

    * host              cobol             default

    * implicit_svpt     no                default

    * iname             oraclecursor.sks  command line

    * include           *none*            default

    * ireclen           250               /home1/support/support/tonyt/procobol/exam

    * litdelim          quote             default

    * lname             oraclecursor.lis  command line

    * lreclen           132               default

    * ltype             long              default

    * maxliteral        256               default

    * maxopencursors    250               /home1/support/support/tonyt/procobol/exam

    * max_row_insert    0                 default

    * mode              ORACLE            /home1/support/support/tonyt/procobol/exam

    * nested            yes               default

    * nls_local         no                default

    * oname             oraclecursor.cs9  command line

    * oraca             no                default

    * oreclen           250               /home1/support/support/tonyt/procobol/exam

    * outline           no                default

    * outlnprefix       *none*            default

    * pagelen           10000             /home1/support/support/tonyt/procobol/exam

    * picn_endian       big               default

    * picx              charf             dbms

    * prefetch          1                 default

    * release_cursor    no                /home1/support/support/tonyt/procobol/exam

    * runoutline        no                default

    * select_error      yes               default

    * sqlcheck          FULL              /home1/support/support/tonyt/procobol/exam

    * stmt_cache        0                 default

    * threads           no                default

    * type_code         oracle            mode

    * unsafe_null       yes               /home1/support/support/tonyt/procobol/exam

    * userid            dbsupport/Unidos30/home1/support/support/tonyt/procobol/exam

    * varchar           no                default

    * xref              yes               default

    * Copyright (c) 1982, 2009, Oracle and/or its affiliates.  All rights reser

    * Statistics

    * ----------

    * Return code: 0

    * Number of messages at severity I: 0

    * Number of messages at severity W: 0

    * Number of messages at severity E: 0

    * Number of messages at severity F: 0

    * Number of input lines: 234

    * Number of host variables declared: 20

    * Number of cursor names: 1

    * Number of statement names: 0

    * Maximum memory (bytes) used: 149617

    * CSQL-I-020: Processing output of Oracle Precompiler

    * CSQL-I-027: Detected Working-Storage, now processing it

    * CSQL-I-028: Now processing through Procedure Division

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-029: Found an EXEC SQL Statement, processing it

    * CSQL-I-001: Cobsql has finished returning to the Checker

    * Total Messages:     0

    * Data:        2640     Code:       10739

    * Micro Focus COBOL Code Generator

    * Copyright (C) Micro Focus 1984-2013. All rights reserved.

    * Accepted - verbose

    * Accepted - anim

    * Accepted - nolitlink

    * Generating oraclecursor

    * Data:        2424     Code:       24080     Literals:        1544

    Entry points defined in module: oraclecursor.o

           *oraclecursor

    Entry points defined in module: /home/products/oracle/11gR2/client_32/precomp/lib/cobsqlintf.o

           SQLAB1

           SQLGSST

           SQLGSS

           SQLGS2

           SQLGLS

           SQLGLST

           SQLADR

           SQLADRCR

           SQLADRVC

           SQLAD1

           SQLALD

           SQLALDT

           SQLBS1

           SQLCDA

           SQLCUR

           SQLFCC

           SQLFCH

           SQLGB1

           SQLLO1

           SQLLDA

           SQLLD2

           SQLLEN

           SQLMOV

           SQLOCA

           SQLOS1

           SQLPCS

           SQLSQS

           SQLSTRD

           SQLTFL

           SQLTOC

           SQLGRI

           SQLNUL

           SQLNULT

           SQLPRC

           SQLPRCT

           SQLPR2

           SQLPR2T

           SQLBEX

           SQLBXT

           SQLORA

           SQLORAT

           SQLGLM

           SQLGLMT

           SQLBCC

           SQLBTE

           DSNTIAR

           SQLROWIDGET

    Run the executable

    /home1/support/support/tonyt/procobol >./oraclecursor

    main Started >>>>

    init Started >>>>

    time from database <19/02/2014 15:04:42    >

    work Started >>>>

    work drop table >>>>

    work create table >>>>

    work create row 1 using host variables >>>>

    work insert row 2 using host record >>>>

    work commit work >>>>

    work update row >>>>

    work Verify updated data before rollback >>>>

    work test the null column processing

    work rollback >>>>

    work Verify data after rollback using cursor >>>>

    work fetch row-col 1 >>>>

    work test past end of fetch >>>>

    fini Started >>>>

    main press any key to return

    >>>>>>>>>>>>>>>>>>>>

    You need tnsnames.ora setup to point to db if not on this machine

    And two_task environment variable.

    /home1/support/support/tonyt/procobol >. ./setup.sh

    # tnsnames.ora Network Configuration File: /home/products/oracle/product/11.2.0/client_1/network/admin/tnsnames.ora

    # Generated by Oracle configuration tools.

    ORA62SUPXE =

     (DESCRIPTION =

       (ADDRESS = (PROTOCOL = TCP)(HOST = nwb-ora62sup)(PORT = 1521))

       (CONNECT_DATA =

         (SERVER = DEDICATED)

         (SERVICE_NAME = XE)

       )

     )

    COBDIR set to /home/products/vcdevhub22

    version @(#)cob.c       2.2.0.93

    PRN=KXCAI/AAD:Ao.U4.13.04

    PTI=32/64 bit

    PTI=Micro Focus Visual COBOL Development Hub 2.2

    PTI=pkg_77569

    PTI=ES

    PTI=SOA Configured

    I see no work

    java version "1.6.0"

    Java(TM) SE Runtime Environment (build pap3260sr6-20090925_01(SR6))

    IBM J9 VM (build 2.4, JRE 1.6.0 IBM J9 2.4 AIX ppc-32 jvmap3260sr6-20090923_42924 (JIT enabled, AOT enabled)

    J9VM - 20090923_042924

    JIT  - r9_20090902_1330ifx1

    GC   - 20090817_AA)

    JCL  - 20090924_01

    >>>>>>>>>>>>>>>>>>>>>>

    Well if we have got this far.

    We can use eclipse creating a remote project.

    Before we start

    You will need two make sure these variables are available to the remote rdo daemon

    The oracle ones

    >>>>>>>>

    #

    # setup oracle

    #

    export ORACLE_HOME=/home/products/oracle/11gR2/client_32

    export PATH=$ORACLE_HOME/bin:$PATH

    export LIBPATH=$ORACLE_HOME/lib:$LIBPATH

    export ORACLE_SID=ORA62SUPXE

    export TWO_TASK=$ORACLE_SID

    #

    # contents of tnsnames.ora

    #

    cat $ORACLE_HOME/network/admin/tnsnames.ora | head -12

    #

    JAVA_HOME=/usr/java6

    export JAVA_HOME

    PATH=$HOME/bin:$JAVA_HOME/bin:/sbin:/usr/sbin:$PATH

    export PATH

    LANG=en_US

    export LANG

    TERM=ansi

    export TERM

    #

    # this set env for visual cobol development HUB

    #

    . /home/products/vcdevhub22/bin/cobsetenv

    COBMODE=32

    export COBMODE

    >>>>>>>>>

    Then start the rdo daemon

    $COBDIR/remotedev/startrdodaemon

    On the PC

    Create a remote project.

    Add the program I have given you here or a example.

    Add this to additional directives

    >>>>>>

    LIST() COPYEXT(CPY,cpy,cob) OSEXT(CPY,cpy,cob) p(cobsql) DISPLAY VERBOSE SQLDEBUG end-c DEFINE=BIT64  COMP5=YES  DEFINE=COMP5  p(cp)  endp endp

    >>>>>

    The above you can change to use config files and directives files.

    Now we need to get this project to know about the clntsh lib

    Put this in additional link directives

    >>>>>>>

    -L/home/products/oracle/11gR2/client_32/lib/ -lclntsh –Nnolitlink

    >>>>>>>

    Now we need to tell the project about external object files

    We add this to addition items to be linked

    cobsqlintf.o

    press add external files and browse to the 32 bit directory

    >>>>>>>

    /home/products/oracle/11gR2/client_32/precomp/lib/cobsqlintf.o

    >>>>>>>>>

    Apply and then clean compile

    Now just try to debug this application.

    Sorry these are very rough notes, but hope they help

    Regards

    Tony