Re: DATA-INTO not matching variable

[erifam@xxxxxxxxx]

Change all packed fields to decimal

(WalzCraft) Jerry Forss <JForss@xxxxxxxxxxxxx> schrieb am Do., 14. Sept.
2023, 18:49:

> Hi All
>
> I am starting to build call to TaxJar for verifying taxes but getting a
> mapping error on the county_taxable_amount and not seeing the issue.
> It loads everything up to that field.
>
> What am I doing wrong?
>
> Json return doc
>
> {
>                "tax": {
>                               "amount_to_collect": 55.0,
>                               "breakdown": {
>                                              "city_tax_collectable": 0.0,
>                                              "city_tax_rate": 0.0,
>                                              "city_taxable_amount": 0.0,
>                                              "combined_tax_rate": 0.055,
>                                              "county_tax_collectable": 5.0,
>                                              "county_tax_rate": 0.005,
>                                              "county_taxable_amount":
> 1000.0,
>                                              "line_items": [
>                                                             {
>
>  "city_amount": 0.0,
>
>  "city_tax_rate": 0.0,
>
>  "city_taxable_amount": 0.0,
>
>  "combined_tax_rate": 0.055,
>
>  "county_amount": 5.0,
>
>  "county_tax_rate": 0.005,
>
>  "county_taxable_amount": 1000.0,
>
>  "id": "1",
>
>  "special_district_amount": 0.0,
>
>  "special_district_taxable_amount": 0.0,
>
>  "special_tax_rate": 0.0,
>
>  "state_amount": 50.0,
>
>  "state_sales_tax_rate": 0.05,
>
>  "state_taxable_amount": 1000.0,
>
>  "tax_collectable": 55.0,
>
>  "taxable_amount": 1000.0
>                                                             }
>                                              ],
>
> Data Structure
>
> // Tax Response From API Call
>   Dcl-ds TaxResponse                        Qualified;
>
>     Dcl-ds tax;
>
>       amount_to_collect                     Packed(7 : 2);
>
>       Dcl-ds breakdown;
>
>         city_taxable_amount                 Packed(7 : 2);
>         city_tax_rate                       Packed(7 : 2);
>         city_tax_collectable                Packed(7 : 2);
>         combined_tax_rate                   Packed(7 : 4);
>         county_tax_collectable              Packed(7 : 2);
>         county_tax_rate                     Packed(7 : 4);
>         county_taxable_amount               Packed(7 : 2);
>
>         cnt_line_items                      Int(5);
>         Dcl-ds line_items                   Dim(25);
>           city_amount                       Packed(7 : 2);
>           city_tax_rate                     Packed(7 : 4);
>           city_taxable_amount               Packed(7 : 2);
>           combined_tax_rate                 Packed(7 : 4);
>           county_amount                     Packed(7 : 2);
>           county_tax_rate                   Packed(7 : 4);
>           county_taxable_amount             Packed(7 : 2);
>           id                                Char(1);
>           special_district_amount           Packed(7 : 2);
>           special_tax_rate                  Packed(7 : 4);
>           special_district_taxable_amount   Packed(7 : 2);
>           state_amount                      Packed(7 : 2);
>           state_sales_tax_rate              Packed(7 : 4);
>           state_taxable_amount              Packed(7 : 2);
>           tax_collectable                   Packed(7 : 2);
>           taxable_amount                    Packed(7 : 2);
>         End-Ds;
>
> Error
>
> [cid:image001.png@01D9E701.4ADAD820]
>
>
>
>
>
> 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: 1-800-237-1326
> --
> 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@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.