It maps properly, the ds contains all the input fields, and populates them as needed. It all happens behind the scenes. If I put a date in there, the date shows up in the correct place, and everything is good.
Mark Murphy
STAR BASE Consulting, Inc.
mmurphy@xxxxxxxxxxxxxxx
-----"DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx> wrote: -----
To: "RPG programming on the IBM i (AS/400 and iSeries)" <rpg400-l@xxxxxxxxxxxx>
From: "DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>
Date: 07/31/2014 12:45PM
Subject: RE: MAPVAL issues
Ok, so in the DDS he declares this field for INPUT only, meaning that this field will be in the INPUT data structure, but not OUTPUT. How does RPG map dcl-ds dsprec likerec(display: *all) when input and output formats are different?
I still think all he needs to do is define the field for BOTH input and output...
-Eric
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Charles Wilt
Sent: Thursday, July 31, 2014 9:54 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: MAPVAL issues
It doesn't appear that you are initializing the DS...so what are you loading to it?
Are you using OVRDTA / PUTOVR keywords by chance...though I wouldn't expect those to matter for an input only field...you said in another post you started with a Both.
I'm wondering if the problem is in the i/o to the DS.
I'd try doing an exfmt using I & O -specs jsut to see if it works there.
Charles
On Wed, Jul 30, 2014 at 1:29 PM, Mark Murphy/STAR BASE Consulting Inc. < mmurphy@xxxxxxxxxxxxxxx> wrote:
Does anyone use the MAPVAL keyword? I am having the following issue,
My date field is defined like so:
A RPTDT L I 5 29DATFMT(*USA)
A MAPVAL(('01/01/0001' *BLANK))
I am reading into a data structure defined like this:
dcl-ds dsprec likerec(display: *all);
But when I read the record (using EXFMT), a blank keyed on the screen
is input as a blank which causes invalid format error when the field is used.
What am I doing wrong?
Mark Murphy
STAR BASE Consulting, Inc.
mmurphy@xxxxxxxxxxxxxxx
--
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.
--
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
