|
>>I'm getting this error.... Is there an H spec to remove it, >>or do I use an error code to trap it.? For the values/definitions you have indicated, the following works fine: D p_P_tax_var S 17P 6 D g_g_txamount S Like(p_P_tax_var) D Inz(.176654) D linetax S Like(p_P_tax_var) D Inz(.000008) D Message S 20A /Free Eval p_P_tax_var = (g_g_txamount-linetax)/linetax; Message = %Char(p_P_tax_var); Dsply Message '*REQUESTER'; *InLR = *On; /End-Free Maybe something else causing the problem? Incidentally, RPG IV supports Packed/Zoned definitions of 30,30 as of V5R1. At V5R2 this increased to 31-digits. V5R3 now allows us 63-digits. Brian Parkins
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.