|
I'm calling a third party software written in CL/COBOL from Java thread
using the Toolkit. The exact call stack is like: Java->RPG->RPGLE->CL->CBL.
The Java code is running on the same AS400 as the RPG, CL, CBL.
Java uses /QIBM/ProdData/OS400/jt400/lib/jt400Native.jar on OS400 - v5r1.
The ProgramCall Java object has threadsafe set to true;
RPG is using return instead of set LR to keep the resources open.
The COBOL program is failing in QLRMAIN with a CPF1892 message - Function
RCLRSC not allowed:
Additional Message Information
Message ID . . . . . . : LBE7200 Severity . . . . . . . : 50
Message type . . . . . : Inquiry
Date sent . . . . . . : 03/04/02 Time sent . . . . . . :
12:53:42
Message . . . . : Message CPF1892 in "PGM" in "LIB" (C D F G).
Cause . . . . . : Message CPF1892 was detected in COBOL statement 1108
(MI
instruction 01EA) in program "PGM" in "LIB".
Recovery . . . : Enter a G to continue the program at the next MI
instruction, or a C if no dump is wanted, a D if a dump of the COBOL
identifiers is wanted, or an F to dump both the COBOL identifiers and the
compiler-generated variables. The message text for CPF1892 follows:
Function
RCLRSC not allowed.
Messages in the Joblog:
Function RCLRSC not allowed.
Function check. CPF1892 unmonitored by QLRMAIN at statement *N,
instruction X'039B'.
Is there a way around it?
Thanks,
Attila
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.