RE: Calling COBOL from Java

["Gary L Peskin" <garyp@xxxxxxxxxxxx>]

Try setting threadSafe to false (or letting it default to false).  I
believe that this will force the call to go through a path that does not
allow multiple threads.  RCLRSC is not allowed in a job that is capable
of running with multiple threads.

HTH,
Gary

> -----Original Message-----
> From: java400-l-admin@midrange.com
> [mailto:java400-l-admin@midrange.com] On Behalf Of
> Attila_Halasz@quixtar.com
> Sent: Tuesday, March 05, 2002 8:38 AM
> To: JAVA400-L@midrange.com
> Subject: Calling COBOL from Java
>
>
> 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
>
> _______________________________________________
> This is the Java Programming on and around the iSeries /
> AS400 (JAVA400-L) mailing list To post a message email:
> JAVA400-L@midrange.com To subscribe, unsubscribe, or change
> list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/java400-l
> or email: JAVA400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/java400-l.
>