Absent Member.
Absent Member.
2443 views

Error 114 in execution - Cobol+ProCobol

Jump to solution

We are having problem executing a programa compiled with Visual Cobol 2.2 and preprocessed with ProCobol.

We are not using neither Eclipse nor .NET environment development.

We have found in this ORACLE  URL:

https://community.oracle.com/thread/466190?start=0&tstart=0

that the solution is use  the compiler flags "-C IBMCOMP". We tested this, but do not work.

The problem occurs when trying to connect to the database.

We are blocked and We don't know what can we do.

Can anybody help us?

0 Likes
1 Solution

Accepted Solutions
Absent Member.
Absent Member.

We had resolve the problem changing two parameters in PRoCobol directives.

nomakesyn ==> makesyn

comp5=no ==> comp5=yes

and run OK.

Thanks for your effort.

View solution in original post

0 Likes
5 Replies
Micro Focus Expert
Micro Focus Expert

Can you provide us with more detail here?

Under what OS are you running?

What version of the Oracle client are you using?

What specific version of Visual COBOL are you using 2.2 or 2.2 update 1?

What does your compile/link command look like?

Thanks

0 Likes
Absent Member.
Absent Member.

OS Unix (AIX).

Visual Cobol :  Micro Focus COBOL V2.2 revision 000

Pro*COBOL: Release 11.2.0.3.0

Oracle Client: 11.2.0.3

* * * * DIRECTIVES * * * * *

p(cobsql)  csqlt=oracle8 nomakesyn end-c comp5=no sqlcheck=full mode=oracle varchar=no dbms=V8 maxopencursors=100 prefetch=100 unsafe_null=yes close_on_commit=no dynamic=oracle type_code=oracle USERID=CBL_OWNER/cobol2014@LBDCOB01 preprocess(cp) endp

XMLGEN(WS)

IBMCOMP

DATAMAP

DIALECT(RM)

RM"ANSI"

sign(ebcdic)

COMP2(DECIMAL)

ADDSYN "COMP-2" = "COMP"

ADDSYN "COMP-2" = "COMPUTATIONAL"

COMP-6(2)

COMP1(BINARY)

TRACE

DEFAULTCALLS(0)

REMOVE"MANUAL"

REMOVE"TIMEOUT"

COBFSTATCONV

REMAINDER"2"

PERFORM-TYPE"RM"

NOCHECKDIV

SIGN-FIXUP

CHANGE-MESSAGE "305 N"

CHANGE-MESSAGE "1111 E"

CHANGE-MESSAGE "1112 N"

CHANGE-MESSAGE "1136 N"

CHANGE-MESSAGE "1140 N"

CHANGE-MESSAGE "1146 N"

CHANGE-MESSAGE "1203 N"

CHANGE-MESSAGE "1205 N"

CHANGE-MESSAGE "1207 N"

CHANGE-MESSAGE "1209 N"

CHANGE-MESSAGE "1202 N"

CHANGE-MESSAGE "1204 N"

CHANGE-MESSAGE "1216 N"

CHANGE-MESSAGE "1654 N"

WARNINGS "3"

NOMFCOMMENT

* * * * END DIRECTIVES * * * * *

* * * * COMPILATION SCRIPT (part) * * * * *

This script is a Little complex. I extract the core.

# Iniciamos la compilacion

echo "Compilando $NOMBRE_FUENTE..."

#echo "$COMPILADOR -C "verbose confirm CHECK" -uUP $ENTORNO/$DIR_FUENTES/$GRUPTRAB/$NOMBRE_FUENTE -W e -g"

#$COMPILADOR -C "verbose confirm CHECK" -uUP $ENTORNO/$DIR_FUENTES/$GRUPTRAB/$NOMBRE_FUENTE -W e -g

echo "$COMPILADOR -C "verbose confirm CHECK" -uUP $ENTORNO/$DIR_FUENTES/$GRUPTRAB/$NOMBRE_FUENTE -W w -g"

#$COMPILADOR -C "verbose confirm CHECK" -uUP $ENTORNO/$DIR_FUENTES/$GRUPTRAB/$NOMBRE_FUENTE -W w -g

$COMPILADOR -C "verbose confirm CHECK" -uUP $ENTORNO/$DIR_FUENTES/$GRUPTRAB/$NOMBRE_FUENTE -W e -g

# Capturamos la salida de la compilacion

* * * * END COMPILATION SCRIPT * * * * *

0 Likes
Micro Focus Expert
Micro Focus Expert

I would expect that it is the DIALECT"RM" directive that is causing the problem as this changes the default call-convention that is used for CALL statements which is what Pro*COBOL generates from your embedded SQL.

Please try removing DIALECT"RM" and see if that resolves the problem.

Thanks

0 Likes
Absent Member.
Absent Member.

We removed DIALECT"RM" from the directives file, compile and execute and obtain the same error 114.

0 Likes
Absent Member.
Absent Member.

We had resolve the problem changing two parameters in PRoCobol directives.

nomakesyn ==> makesyn

comp5=no ==> comp5=yes

and run OK.

Thanks for your effort.

View solution in original post

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.