Re: Calling Service Programs from ILE Cobol

["John Part" <jp@xxxxxx>]

Simon,

Thanks for the reply you were spot on the money.  You mention about putting
something in the Special Names paragraph, can you give me some more
information on that please.  I went on a course for ILE about four months
ago, but have only started using it now, so I'm remembering bits and pieces
of it.

Thanks again,

JP

To contact me in a hurry, use the address JP@E-MERGE.IE
Ph: +353 87 6777208
----- Original Message -----
From: "Simon Coulter" <shc@flybynight.com.au>
To: <COBOL400-L@midrange.com>
Sent: Wednesday, November 29, 2000 11:02 AM
Subject: Re: Calling Service Programs from ILE Cobol


> M
> Hello JP,
>
> You wrote:
> >I have tried CALL pgm, CALL LINKAGE TYPE IS PROGRAM pgm, but I keep
> >getting an error telling me that my main program can't find or resolve
> >to the function.
>
> >Can someone please help me, should I be using something other than
> >CALL? or is there a special version of the call command?
>
> Yes.  You should be using CALL LINKAGE TYPE IS PROCEDURE or define the
routine as a
> procedure in the special names paragraph.
>
> >I have also tried creating a single program, binding in both modules
> >but still got the same error.
>
> Same problem.  It makes no difference whether the routine is in another
module in the
> same program or in a service program.  You use CALL LINKAGE TYPE IS
PROCEDURE to invoke
> it.  CALL defaults to LINKAGE TYPE IS PROGRAM and is for dynamic *PGM to
*PGM calls.
> Bound routines whether bound by copy (in a *MODULE) or bound by reference
(in a *SRVPGM)
> are PROCEDUREs.
>
> >The same question would apply to a CL program, is there a special way
> >of calling ILE functions?
>
> Use CALLPRC.
>
> Regards,
> Simon Coulter.
>
> «»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
> «» FlyByNight Software         AS/400 Technical Specialists       «»
> «» Eclipse the competition - run your business on an IBM AS/400.  «»
> «»                                                                «»
> «» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
> «» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
> «»                                                                «»
> «» Windoze should not be open at Warp speed.                      «»
> «»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
> +---
> | This is the COBOL/400 Mailing List!
> | To submit a new message, send your mail to COBOL400-L@midrange.com.
> | To subscribe to this list send email to COBOL400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
COBOL400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---END
>
>

+---
| This is the COBOL/400 Mailing List!
| To submit a new message, send your mail to COBOL400-L@midrange.com.
| To subscribe to this list send email to COBOL400-L-SUB@midrange.com.
| To unsubscribe from this list send email to COBOL400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END