Re: Interesting issue when testing a printed report.

You aren't moving another value into the field, you are trying to do math
on the field. If you don't initialize the data structure or field in some
way, then by default the entire data structure contains blanks. Even the
numeric fields. You add blanks to a number. That is giving you your decimal
data error. https://www.itjungle.com/2009/02/25/fhg022509-story02/

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of
Jason Olson
Sent: Thursday, March 21, 2019 8:29 AM
To: RPG programming on IBM i
Subject: Re: Interesting issue when testing a printed report.

Your code sample you provided works because you set NumFld to a specific
value. In my case I was trying to move a value from one field into another.

Here is my DS,

dcl-ds Total1
likerec(Print.TOTAL1:*output);

Here is the code in the program,

Total1.TAXTOTAL += StateTax(i).TAX_AMOUNT;

Earlier in the program I have to code this,

Total1.TAXTOTAL = 0;

If I don't have that in the code then when I try to run I will get a data
decimal error. The error is on the line where I'm setting the TAXTOAL like
I have above.


Thanks,

Jason E. Olson
IBM i Engineer/Developer
josys36@xxxxxxxxx
480.223.2952


On Wed, Mar 20, 2019 at 4:29 PM Brian Parkins <goodprophet.bp@xxxxxxxxx>
wrote:

I think we need to see a little of your coding to help, Jason. How are
you defining your Data Structures? Are they defined internally, within
the program - or externally defined?

The following basic example works just fine for me:

DDS:
A R AAFORMAT SPACEB(1)
A 43'Test of Printer File with
D/Str Fo-
A rmats'
A SPACEB(1)
A CHARFLD 20O 21SPACEB(3)
A NUMFLD 9 2 57

RPG IV:
**Free
Dcl-F AAPrtf Printer;

Dcl-DS PrtfDS Extname('AAPRTF':'AAFORMAT':*Output);
End-Ds;

CharFld = 'First Record';
NumFld = 12345.7;

Write AAFormat PrtfDS;
*InLR = *On;
Return;

Getting sight of your code might help us to isolate your problem.
Brian.

On 20/03/2019 18:38, Jason Olson wrote:

So the last few days I've been working on creating a printed report.
Normally I just create spreadsheets and email those, but in this
case,

they

wanted a printed report emailed as a PDF.

So I created a report like normal, but as I create programs with
MAIN procedures, I needed to create data structures for each record
format in the print file. All of the fields in the print file are
reference fields except a field that will hold a total. That is
defined as a 9 byte zoned field with 2 decimal places. What is
strange is when I go to set this

field

to a value in my program. If I set it to a value like 0 everything
works normally. However, if I try to move a value into it like from
another field, I get a data decimal error. The only way I was able
to get things

to

work normally is if I set the field in the data structure to 0
before

using

it. I haven't ran into this before, so I figured I would ask the
group if someone had seen this.



Thanks,

Jason E. Olson
IBM i Engineer/Developer
josys36@xxxxxxxxx
480.223.2952

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com


[https://www.medtronsoftware.com/img/MedtronMinilogo.bmp] Kevin Bucknum
Senior Programmer Analyst
MEDDATA / MEDTRON
120 Innwood Drive
Covington LA 70433
Local: 985-893-2550
Toll Free: 877-893-2550
https://www.medtronsoftware.com



CONFIDENTIALITY NOTICE

This document and any accompanying this email transmission contain
confidential information, belonging to the sender that is legally
privileged. This information is intended only for the use of the
individual or entity named above. The authorized recipient of this
information is prohibited from disclosing this information to any other
party and is required to destroy the information after its stated need has
been fulfilled. If you are not the intended recipient, or the employee of
agent responsible to deliver it to the intended recipient, you are hereby
notified that any disclosure, copying, distribution or action taken in
reliance on the contents of these documents is STRICTLY PROHIBITED. If you
have received this email in error, please notify the sender immediately to
arrange for return or destruction of these documents.
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com