× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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 thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.