Re: ILE and CL, need be pointed to the right directions

ˆ
Hello Slava,

You wrote:

<================== Excerpt ============================>
Looks like i am stuck with prototype call which passing 10 parameters.

524 C                   Callp     SbmJob(#EINID:#ECMD:F3MTYP:F3MCTLN: -
525 C                             $JobT:$Eff:$Eft:$Efa:$Elogl:$Msg)
526 C                   ENDSR


*RNF7421 30    525 036202  Operands are not compatible with the type of
operator.
*RNF7536 30    524 036201  The type of parameter 5 specified for the call
does not match the prototype.

what i am missing???

 *Prototype for procedure SbmJob
D SbmJob          PR
D  #Einid                       10A   Value
D  #ECmd                        10A   Value
D  #EMTyp                        1A   Value
D  #EMCtln                      10S 0 Value
D  #EType                        2A   Value
D  #EFileFr                    128A   Value
D  #EFileTo                    128A   Value
D  #EMbrArc                     10A   Value
D  #ELog                        10A   Value
D  #EMSG                       512A   Value
<======================= End of Excerpt ================>

You should send these questions to the RPG400-L list.  There is insufficient 
information in your e-mail to determine the problem.  The compiler message 
indicates that the 5th parameter doesn't match, or cannot be coerced to, the 
data 
type specified in the prototype.  The prototype says the fifth parameter is:

D  #EType                        2A   Value

The call shows as:

524 C                   Callp     SbmJob(#EINID:#ECMD:F3MTYP:F3MCTLN: -
525 C                             $JobT:$Eff:$Eft:$Efa:$Elogl:$Msg)

where the fifth parameter is $JobT.  Verify that the data types of $JobT is 
compatible with #EType.

However I think the real problem is the hyphen following F3MCTLN.  You don't 
need 
a continuation character on a CX-Spec and the hyphen is being interpreted as 
part 
of the fifth parameter.  Change the call to:

524 C                   Callp     SbmJob(#EINID:#ECMD:F3MTYP:F3MCTLN:
525 C                             $JobT:$Eff:$Eft:$Efa:$Elogl:$Msg)

and it should work (or at least result in different error messages).

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   \ /   «»
«»                                                           X    «»
«»               ASCII Ribbon campaign against HTML E-Mail  / \   «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---