|
midrange.com
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 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.
