Thank you Rob, and yes, I do.
It is my wife as well. She finished radiation/chemo 3 months ago.
Cancer is not for sissies!
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Wednesday, April 22, 2015 10:23 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: Packed decimal interpitation issue
Good luck, and if you roll that way, my prayers are with you. I'm taking the wife to chemo again tomorrow. I'm sure she'll be fine, just a journey...
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 11:19 AM
Subject: RE: Packed decimal interpitation issue
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx>
Thank you all,
To be honest my brain is running at 30% these days.
Lots of major medical issues in the family. Sleep deprived for sure.
Yep, correct, the -40012 is a real number even though the actual data is
wrong.
It is vendor data on a record created 3 years ago.
I will figure why my excel build pgm is failing. It "should" be able to
handle it.
First time it ever failed, and of course I only write perfect code. :)
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
rob@xxxxxxxxx
Sent: Wednesday, April 22, 2015 9:48 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: Packed decimal interpitation issue
It really would take some serious looking.
Starting with the obvious: Are you querying the base table or some
view/index/logical with select/omit rows specified?
What is the value of your "where" clause? Is it selecting by the column
in error?
Keep in mind that
*..
402
01D
is not an invalid number. It is negative 40012. I proved that with my
SQL example. It is not -1249 in any way, shape, or form.
Perhaps you "think" it's blowing up on this column but it's really blowing
up on some other.
One would really have to pour over the joblog and everything else.
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 10:25 AM
Subject: RE: Packed decimal interpitation issue
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx>
Ok, got it figured out, kind of.
Running a qry brings up 2 records.
When I do a DSPPFM of the file, if I keep searching I find 3!
The bad record is being ignored by the system?
I changed qry to not ignore decimal data errors.
I use WRKDBF to go to that customer and the bad record is not displayed.
Could it be because it is part of the key?
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
(WalzCraft) Jerry Forss
Sent: Wednesday, April 22, 2015 9:09 AM
To: 'RPG programming on the IBM i (AS/400 and iSeries)'
Subject: RE: Packed decimal interpitation issue
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
