Re: Calling CBLLE-procedures from a RPGLE-pgm?

[Bob Larkin <blarkin@xxxxxx>]

Is the COBOL program called many times? the reason I ask, is a
performance problem I was with OPB where RPG called several COBOL
programs repeatedly (thousands of times per hour). Performance was
terrible, because of COBOL environment ending after each call. I placed
a COBOL program at the top of the program stack, then used it to simply
call what was the first RPG program in the stack. Tis resulted in the
job running in 17 minutes, instead of 11 HOURS.

I do not think this is a problem with a bound ILE program, but maybe
someone else knows.

geir.kildal@entragroup.com wrote:

>
>
>
>
>
> Hello.
> I send this once again, because I haven't solved it yet and I badly
> need a solution to this.
> This question should have been under the RPG-section, but I bet you
> good guys know the answer, and I'm not connected to the RPG-mailing
> list.:
>
> In an old RPGpgm, RPG1, I called a COBOLpgm, CBL1 with a PLIST  PLIS1
> containing PARAM1, PARAM2 and PARAM3.  The Call was like this:
> CALL 'CBL1' PLIS1(Standard OPM RPG, the parameters are bringing data
> into CBL1 and are receiving data back from CBL1).  PARAM1 - PARAM3
> contains 30 -50 data elements each, and I dont want to reprogram it.
>
> RPG1 is converted into RPGLE1, and CBL1 is converted into CBLLE1, and
> I intend to bind those modules together into one ILEpgm, RPGLE1.  I
> now need a  static call instead of the old dynamic CALL in RPGLE1
> because I want to speed up the process.
>
> If I try CALLB, and then create modules, and try the 'CRTPGM'-command
> reffering to modules RPGLE1 and CBLLE1,  I just get the message
> "Definition not found for symbol 'CBLLE1 in *MODULE object RPGLE1'" .
> From that I understand that CALLB can only be used for calling
> procedures inside the main RPGLE-code,( or other RPG-procedures??), so
> I have to use 'CALLP' instead.  But, having read the manuals, I can't
> see how I can use my old parameter definitions to bring data into the
> called program, and, this is crucial, to bring data back to the
> calling program.
>
> Has anyone of you ever called an ILE-COBOL program from an ILE-RPG
> program bringing data into the called program, and receiving data back
> into the calling program?
>
> Mvh.
>
> Geir
>