Re: Calling Service Programs from ILE Cobol

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