View previous topic :: View next topic
|
Author |
Message |
Ashishpanpaliya
New User
Joined: 13 Oct 2017 Posts: 34 Location: India
|
|
|
|
I have defined below table.
Code: |
CREATE TABLE ORDERNEXT
(
NAME CHAR(10)
,SURNAME CHAR(10)
); |
created below stored procedure in cobol.
Code: |
LINKAGE SECTION.
01 NAME-IN PIC X(10).
01 SURNAME-OUT PIC X(10).
01 RETURN-CODE-OUT PIC X(2).
*******************************************
PROCEDURE DIVISION USING NAME-IN
,SURNAME-OUT
,RETURN-CODE-OUT.
PROG-CONTROL SECTION.
DISPLAY 'SP Started'.
EXEC SQL
SELECT SURNAME
INTO :SURNAME-OUT
FROM ORDERNEXT
WHERE NAME = :NAME-IN
END-EXEC. |
Also defined in database.
now I am calling above SP using another program as below but failing with SQL 331.
Code: |
EXEC SQL
CALL PROGRAM4
(
:NAME_IN
,:SURNAME_OUT
,:RETURN-CODE-OUT)
END-EXEC.
|
also copied other sql messages
Code: |
SQLCAID :SQLCA
SQLCABC :0000000136
SQL CODE:000000331
SQLERRMC :3 1208 1140 16
SQLERRP :DSNXROHB
SQLERRD1 :000000117
SQLERRD2 :000000000
SQLERRD3 :000000000
SQLERRD4 :000000001
SQLERRD5 :000000000
SQLERRD6 :000000000
SQLWARN :
SQL STATE:22021
SQLEXT : 22021 |
this last bit coded for you
Any help in this regard will be helpful. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
Back to top |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010 Posts: 3048 Location: NYC,USA
|
|
|
|
What you have shown is just a COBOL Program, I hope you understand that. Where have you defined the SP ? Which catalog tables? Did you even know those table if you do it by yourself or did you even reach out to DBAs to define them first before even you execute it? |
|
Back to top |
|
|
Ashishpanpaliya
New User
Joined: 13 Oct 2017 Posts: 34 Location: India
|
|
|
|
Quote: |
Where have you defined the SP |
I have defined SP using below SQL in spufi ...also verified entry in sysroutine and sysparameter tables.
Code: |
CREATE PROCEDURE PROGRAM4 (
IN NAME CHAR(10)
,OUT SURNAME CHAR(10)
,OUT RETURN_CODE CHAR(2))
RESULT SETS 0
LANGUAGE COBOL
EXTERNAL NAME PROGRAM4
FENCED
COLLID ASHISH1
WLM ENVIRONMENT DBCGENV
RUN OPTIONS 'NOTEST(NONE,*,*,*)' ; |
|
|
Back to top |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010 Posts: 3048 Location: NYC,USA
|
|
Back to top |
|
|
Ashishpanpaliya
New User
Joined: 13 Oct 2017 Posts: 34 Location: India
|
|
|
|
By using 'PARAMETER CCSID ASCII' while defining SP in DB solved the issue.
Thanks Everyone. |
|
Back to top |
|
|
|