When I do a qry of the file selecting that field containing -1249 it brings up 2 records.
Doing a DSPPFM on the file, the first record contains the 40012D (the 40 look obviously wrong), the second record contains 01249D.
That "bad" record was created a little over 3 years ago. That field is part of the key.
I created a little pgm and put them in debug to read those 2 records.
Both records contained -1249 in the field.
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Wednesday, April 22, 2015 9:00 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: Packed decimal interpitation issue
I created this with SQL which will NOT get decimal data errors.
CREATE TABLE QTEMP.JERRY (MYDEC DEC (5 , 0)) INSERT INTO QTEMP.JERRY VALUES(0-40012)
*..
402
01D
I would make double dog sure that you are looking at the exact origin of the error.
What I don't get is where you say both sets of data are the same -1249.
Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1 Group Dekko Dept 1600 Mail to: 2505 Dekko Drive
Garrett, IN 46738
Ship to: Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
From: "(WalzCraft) Jerry Forss" <JForss@xxxxxxxxxxxxx>
To: "'RPG programming on the IBM i (AS/400 and iSeries)'"
<rpg400-l@xxxxxxxxxxxx>
Date: 04/22/2015 09:37 AM
Subject: RE: Packed decimal interpitation issue
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx>
Wow, that did not work.
First image is
402
01D
Second is
029
14D
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
(WalzCraft) Jerry Forss
Sent: Wednesday, April 22, 2015 8:35 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
(rpg400-l@xxxxxxxxxxxx)
Subject: Packed decimal interpitation issue
Hi All,
I have a pgm that takes any IBMi file and will create an excel. Been
working for a long time.
One of the controllers was using it and got a decimal data error.
I ran it in debug and found the following.
The field is Packed 5,0. Looks bad to me. The number is -1249.
[cid:image001.png@01D07CD6.904EBFF0]
When I look at the record in qry it displays correctly. When I use WRKDBF
is displays correctly.
When I change it via WRKDBF it puts it in like that.
There is another record in the same file that has a -1249. Looks correct.
[cid:image002.png@01D07CD7.2A88B6C0]
What the he.........ck?
The system understands what it is. My pgm that takes the raw line, parses
it and makes it a number does not like it.
Jerry Forss
Information Technology Team
WalzCraft
608-781-6355 EXT 2530
jforss@xxxxxxxxxxxxx
Subject to Change Notice:
WalzCraft reserves the right to improve designs, and to change
specifications without notice.
Confidentiality Notice:
This message and any attachments may contain confidential and privileged
information that is protected by law. The information contained herein is
transmitted for the sole use of the intended recipient(s) and should
"only" pertain to "WalzCraft" company matters. If you are not the intended
recipient or designated agent of the recipient of such information, you
are hereby notified that any use, dissemination, copying or retention of
this email or the information contained herein is strictly prohibited and
may subject you to penalties under federal and/or state law. If you
received this email in error, please notify the sender immediately and
permanently delete this email. Thank You;
WalzCraft PO Box 1748 La Crosse, WI. 54602-1748
www.walzcraft.com<
http://www.walzcraft.com/> Phone... 800-237-1326
--
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.
Subject to Change Notice:
WalzCraft reserves the right to improve designs, and to change
specifications without notice.
Confidentiality Notice:
This message and any attachments may contain confidential and privileged
information that is protected by law. The information contained herein is
transmitted for the sole use of the intended recipient(s) and should
"only" pertain to "WalzCraft" company matters. If you are not the
intended recipient or designated agent of the recipient of such
information, you are hereby notified that any use, dissemination, copying
or retention of this email or the information contained herein is strictly
prohibited and may subject you to penalties under federal and/or state
law. If you received this email in error, please notify the sender
immediately and permanently delete this email. Thank You;
WalzCraft PO Box 1748 La Crosse, WI. 54602-1748
www.walzcraft.com Phone... 608-781-6355
midrange.com
