Question

  Asked: May 26 2005   5:09 PM GMT
  Asked by: TOKNOWIT


Calling External Procedure from Java Web based Application


IBM, IBM WebSphere, J2EE, UDB for iSeries/i5, OS/400, iSeries, i5, COBOL, Java, SQL

Below given is a procedure to access a CL Program in iSeries from a Java web based program.

create procedure libxxx/proc_name
LANGUAGE CL
FENCED
EXTERNAL NAME 'libxxx/clprogram'
PARAMETER STYLE GENERAL

The external CL program has other calls to Cobol programs in the same library.The procedure is in a different library.The cobol calls does not have any IN/OUT parameters

I would like to know if the above procedure would make any calls to cobol programs inside the defined CL.I tested based on the above procedure and it seems the calls are not being made to any cobol programs inside CL.

Anyone please suggest a workaround for the above mentioned problem of why its not making any calls to cobol programs.

Subscribe to Alerts! Get questions and answers delivered to your Inbox.


E-mail me updates on this question



   SUBSCRIBE

hidden modal window

Answer Wiki (Improve, edit or add to this answer)


 RATE THIS ANSWER
0
Click to Vote:
  •   0
  •  0



Your java app call sql.
sql call cl.

Now in a cl, you can do anything a cl can.

You have qualified (ie add a library name) your external name. This means that your library list is probably the stansard sql libl : ie nothing.

if this is true, you can do :

- qualify your call to cobol
- before calling proc_name, call sql with "set path = *libl" (syntax to be checked)
- in the cl, add a chglibl
  • AddThis Social Bookmark Button

Browse more Questions and Answers on DataCenter, Development and AS/400.

Looking for relevant DataCenter Whitepapers? Visit the SearchDataCenter.com Research Library.


Discuss This Answer


You must be logged-in to discuss a question. Log-in/Register

JoAnnB  |   May 27 2005  8:02AM GMT

Do you have the Java Toolbox for the iSeries? If you did you could do something like - CommandCall command = new CommandCall(as400,”SBMJOB CMD(CALL PGM(library/program) PARM(’” + parm1 + “‘ ‘” + parm2 + “‘)) JOB(job-name)”)