Further review has shown me that the response message in the job log:
"Remote Connection Active"
is not an affirmative assertion - it is an error!
Message ID . . . . . . : SQL9014 Severity . . . . . . . : 30
Message type . . . . . : Diagnostic
Date sent . . . . . . : 02/22/21 Time sent . . . . . . : 14:21:21
Message . . . . : Remote Connection Active
Cause . . . . . : The RUNSQLSTM command is only able to run locally. A
remote connection is currently active, preventing the RUNSQLSTM command from
being run.
Recovery . . . : Do a CONNECT RESET in SQL. If the problem still persists,
issue the RCLDDMCNV CL command. Try the request again.
Technical description . . . . . . . . : The RUNSQLSTM command found a remote
connection active.
-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Mark Waterbury
Sent: Monday, February 22, 2021 1:38 PM
To: Therrien, Paul via MIDRANGE-L <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Running a remove stored proc from CL and RUNSQL
Paul,
Did you notice this message?
SQL0204 30 MR016SP04 in THERRPLIB type *N not found.
Do you recognize that name "MR016SP04"? Is it in that library THERRPLIB?
HTH,
Mark
On Monday, February 22, 2021, 12:09:50 PM EST, Therrien, Paul via MIDRANGE-L <midrange-l@xxxxxxxxxxxxxxxxxx> wrote:
I am on IBM I V7R3 on 2 separate machines (LPARs) and I am attempting to run a stored procedure on system B from system A.
I can run this on a command line on system A:
RUNSQL SQL('call systemb/therrplib/MR016SP04 (''BK341RFL '', ''BKS2FIN
'', ''FN'', '' '', ''1'', ''THERRP'')')
COMMIT(*NONE) NAMING(*SYS) OPTION(*LIST)
This successfully runs the stored procedure on system B.
When I put this same command in a CLLE program the call to the stored procedure fails.
Output from RUNSQL in CL program:
5770SS1 V7R3M0 160422 RUNSQL Record *...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8
1 call systemb/therrplib/MR016SP04 ('BK341RFL ', 'BKS2FIN ', 'FN', '
1 ', '1', 'THERRP ')
* * * * * E N D O F S O U R C E * * * * *
5770SS1 V7R3M0 160422 RUNSQL Record *...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+...
MSG ID SEV RECORD TEXT
SQL0204 30 MR016SP04 in THERRPLIB type *N not found.
I am certain this situation just reflects my ignorance.
Any help appreciated.
midrange.com
