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