RE: ILE RPG field name weirdness

I think you're simply seeing the old "internal vs. external formats" of numeric fields.

By having the DS subfield, you're forcing the internal format of the field to binary instead of the
normal packed.

Charles Wilt
--
Software Engineer
CINTAS Corporation - IT 92B
513.701.1307

wiltc@xxxxxxxxxx

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of James Lampert
Sent: Friday, May 16, 2008 3:44 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: ILE RPG field name weirdness

Denis Robitaille wrote:

If the second OFFSET is defined in the prototype, that would explain why
there is no compile error. . . .

No.

There is an F-spec pulling in a file containing a packed(5,0) field
called OFFSET.

There is a D-spec block defining FIRSTRECIPIENT as

DFIRSTRECIPIENT DS
D OFFSET 1 4B 0
D ADDRLEN 5 8B 0
D FORMAT 9 16
D DTYPE 17 20B 0
D RESERVED 21 24B 0
D RECADDRESS 25 275

and there's another D-spec block prototyping QtmmSendMail as

D QtmmSendMail PR ExtProc('QtmmSendMail')
D FileName 255A const options(*varsize)
D FileNameLen 10I 0 const
D MsgFrom 256A const options(*varsize)
D MsgFromLen 10I 0 const
D RecipBuf like(FIRSTRECIPIENT)
D dim(32767)
D options(*varsize)
D NumRecips 10I 0 const
D ErrorCode 8000A options(*varsize)

FIRSTRECIPIENT is used later in calls to QtmmSendMail. And the file in
question gets read.

In the compilation listing, OFFSET shows up in the above DS definition,
and in the generated I-specs block for the file, and in this
cross-reference line:

*RNF7031 OFFSET B(5,0) 215D 2762D

with the RNF7031 indicating that it never gets referenced.


--
James H. H. Lampert
Touchtone Corporation

--
This is the RPG programming on the AS400 / 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.

This e-mail transmission contains information that is intended to be confidential and privileged. If you receive this e-mail and you are not a named addressee you are hereby notified that you are not authorized to read, print, retain, copy or disseminate this communication without the consent of the sender and that doing so is prohibited and may be unlawful. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please delete and otherwise erase it and any attachments from your computer system. Your assistance in correcting this error is appreciated.