Highlighted
Absent Member.
Absent Member.
4109 views

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

Pedro Juan Montero Bernales

PJM Informatica Soluciones Globales

Santiago - Chile

0 Likes
6 Replies
Highlighted
Micro Focus Expert
Micro Focus Expert

RE: Semantics

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.

0 Likes
Highlighted
Absent Member.
Absent Member.

RE: Semantics

Dear Chris,

Enclosed the Error that we Get.

TKS

Pedro Juan Montero Bernales

PJM Informatica Soluciones Globales

Santiago - Chile

0 Likes
Highlighted
Micro Focus Expert
Micro Focus Expert

RE: Semantics

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.

0 Likes
Highlighted
Absent Member.
Absent Member.

RE: Semantics

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

Pedro Juan Montero Bernales

PJM Informatica Soluciones Globales

Santiago - Chile

0 Likes
Highlighted
Micro Focus Expert
Micro Focus Expert

RE: Semantics

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

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

Thanks.

0 Likes
Highlighted
Micro Focus Frequent Contributor
Micro Focus Frequent Contributor

RE: Semantics

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

0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.