× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: Prototype: multiple parameters.
  • From: "Slava Zharichenko" <Slava.Zharichenko@xxxxxxxx>
  • Date: Fri, 4 May 2001 06:55:17 -0500


Here is full info:

It does not like something about having parameters on 2 lines.
I change Callp to have either 4 or 5 parms on the first line and getting
different errors:

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

*RNF7536 30    524 036201  The type of parameter 6 specified for the call
does not
                           match the prototype.
*RNF7086 00    145 000013  RPG handles blocking for file FTPHLOGP. INFDS is
updated
                           only when blocks of data are transferred.




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

*RNF7536 30    524 036201  The type of parameter 5 specified for the call
does not
                           match the prototype.
*RNF7086 00    145 000013  RPG handles blocking for file FTPHLOGP. INFDS is
updated
                           only when blocks of data are transferred.




020.07 D  #EINID                       10A
020.08 D  #ECMD                        10A
45.00 D $MSG            S            512A
46.00 D $EFf            S            128A
47.00 D $EFt            S            128A
48.00 D $ELogl          S             10A
49.00 D $EFa            S             10A
50.00 D $Scan           S             20A
51.00 D $X              S              2S 0
52.00 D $JobT           S              2A



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



>
>  *Prototype for precedure 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






pcdow@yahoo.com@midrange.com on 05/03/2001 11:49:16 PM

Please respond to RPG400-L@midrange.com

Sent by:  owner-rpg400-l@midrange.com


To:   RPG400-L@midrange.com
cc:

Subject:  Re: Prototype: multiple parameters.



Hi Slava,

You didn't quite give us enough information. The error is telling you that
the type of $JobT (job type?) doesn't match the 5th parameter in the
prototpe, i.e. 2A. If $JobT is job type, as defined on the RTVJOBA command,
it's only 1A. That's the beauty of prototypes -- they catch this kind of
error at compile time, not run time.

hth,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax


----- Original Message -----
From: "Slava Zharichenko" <Slava.Zharichenko@exel.com>
To: <RPG400-L@midrange.com>
Sent: Thursday, May 03, 2001 11:21 AM
Subject: Prototype: multiple parameters.


>
> 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 precedure 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 data *****************
>
>
>
> ______________________________________________________________________
> Important Email Information
>
> The information in this email is confidential and may be legally
> privileged. It is intended solely for the addressee. Access to this email
> by anyone else is unauthorized. If you are not the intended recipient,
any
> disclosure, copying, distribution or any action taken or omitted to be
> taken in reliance on it, is prohibited and may be unlawful. If you are
not
> the intended addressee please contact the sender and dispose of this
> 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
> +---


+---
| 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
+---




______________________________________________________________________

Important Email Information

The information in this email is confidential and may be legally
privileged. It is intended solely for the addressee. Access to this email
by anyone else is unauthorized. If you are not the intended recipient, any
disclosure, copying, distribution or any action taken or omitted to be
taken in reliance on it, is prohibited and may be unlawful. If you are not
the intended addressee please contact the sender and dispose of this
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
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.