Always, always, always specify the data types on your decimal fields. Default for the fields in the prototype is packed. Default decimal format in a DS is zoned.
As a general rule, when I wrote fixed format D specs, I always specifically set the data type. Leaves no room for error in these situations.
Brian May
Solutions Architect
Profound Logic Software
http://www.profoundlogic.com
937-439-7925 Phone
877-224-7768 Toll Free
The IBM i Modernization Experts
www.profoundlogic.com
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of JRusling@xxxxxxxxxxx
Sent: Wednesday, December 2, 2015 1:18 PM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxx>
Subject: Re: Why wont prototyped (extpgm) call compile when using qualified DS fields as parms?
Forgot compile message -
*RNF7535 30 2 The type and attributes of the parameter do not match
those of the prototype.
We are at v7r2.
John
From: JRusling@xxxxxxxxxxx
To: rpg400-l <rpg400-l@xxxxxxxxxxxx>
Date: 12/02/2015 01:16 PM
Subject: Why wont prototyped (extpgm) call compile when using
qualified DS fields as parms?
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx>
I have this -
d callNotesMaint pr extpgm('ORD140')
d Type 1
d Cust 6 0
d Line 4 0
d Doc 15
d uniq ds qualified
d Type 1
d Cust 6 0
d Line 4 0
d Doc 15
dzzzType s 1
dzzzCust s 6 0
dzzzLine s 4 0
dzzzDoc s 15
When I compile with zzz prefixed fields for pgm call the compile works but when I compile with uniq. qualified DS fields for pgm call the compile fails?
Works -
callNotesMaint(zzzType:zzzCust:zzzLine:zzzDoc);
Fails -
callNotesMaint(uniq.Type:uniq.Cust:uniq.Line:uniq.Doc);
John
<br />
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.
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
<br />
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.
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
