RE: Data mapping error -- RPG400-L

** NOTE: the contents of the field and the status of the null indicator are completely separate.

If %nullind(null_capable_field);
//don't even look at the contents of null_capable_field
// but I can put something into it
null_capable_field = 'My value';

// since I've put something in, I have to turn off the null indicator
%nullind(null_capable_field) = *OFF;
Endif;

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 Willie J. Moore
Sent: Monday, March 03, 2008 4:20 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Data mapping error

Thanks Jerry,
That did it..
Williammm

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Francis Lapeyre
Sent: Monday, March 03, 2008 1:18 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Data mapping error

Willie:

Put Alwnull(*USRCTL) in your H-specs.

Then you have to test for nulls:

If Not %nullind(null_capable_field);
// process normally
Else;

%nullind(null_capable_field) = *off;
null_capable_field = 0; // or *blank
endif;

On Mon, Mar 3, 2008 at 3:04 PM, Willie J. Moore <WJMoore@xxxxxxxxxxxx>
wrote:

Jerry,
The error tells me the file "contains null capable fields". When I

display

the file
it shows dashes if the field is blank. The error happens at the read
statement. Any ideal
how I might get around this?
Thanks,
William...

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Jerry Adams
Sent: Friday, February 29, 2008 3:23 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Data mapping error

Did you review the previous error messages as described in the CPF5029
error message?

Recovery . . . : If the record number is zero, the error occurred on
an
attempt to put or update a record through a logical file, or the
error
occurred on a group by operation, or the error was caused by a
default
value, or the error was caused by a null value in the record.
See
previously listed message CPF5035 or CPD5036 to determine which fields
are
in error. Change the fields that are in error and try the operation
again.
If the record number is not zero, the error occurred on an attempt
to read
an existing record from a file. See previously listed message CPF5035
or
CPD5036 to determine which physical file fields are in error. Then
either
delete the record from the file or change the data in the fields that
are in
error. Then try your request
again.

* Jerry C. Adams
*IBM System i Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
615.995.7024
fax
615.995.1201
email
jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>

Willie J. Moore wrote:

When I try to run program-A, I get the following error:
Data mapping error on member ONTIMED
CPF5029 I/O error was detected in ONTIMED (C G S D F)

This is the code and it failes at the read statement.

C READ ONTIMED LR
C LR GOTO WRKEND

Any ideals or suggestions would be appericated.
Thanks,
William Moore

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

--
Francis Lapeyre

Da mihi sis crustum Etruscum cum omnibus in eo.
--
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 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.