Re: Decimal Data Error On Packed Number

[Carel Teijgeler <coteijgeler@xxxxxxxxx>]

I could be mistaken but is the error not here?

> D                 DS                  INZ
> D NumericFld              1     16P 0
> D AlphaFld                1     16


Would 16P not make 33A? And as the subfields are not INZ, ...

Regards,
Carel Teijgeler




On 31-7-2015 14:42, (WalzCraft) Jerry Forss wrote:
> Hi All,
>
> I have a program that will take any IBMi file and create an excel.
> Works great and is used daily. Users are creating new files using Query all the time.
>
> I retrieve the fields for the file using QUSLFLD and are loaded into arrays.
>
> FInput     IF   F32766        DISK    UsrOpn ExtFile(FileOverride)
> F                                     InfDS(InputDS)
>
> DInputDS          DS
> D InputRecords          156    159I 0
> D InputRRN              397    400I 0
>
> D                 DS                  INZ
> D NumericFld              1     16P 0
> D AlphaFld                1     16
>
> IINPUT     NS
> I                                  132766  InputData
>
> // Seperate Field
> Data = %SubSt(InputData : FldStart(X) : FldLength(x));
>
> // Load Field From String
> %SubSt(AlphaFld : 17 - FldLength(X)) = %Trim(Data);
>
> Here is the scenario.
> The field must be packed, odd number of digits, must be using all digits AND first 2 digits contain 40.
> Example: P5,0 contains 40000 it fails. If it contains 4000 no issue.  If it contains 41000 no issue.
>
> I read a record from Input and start parsing out the fields.
>
> When it does the SubSt to the alphafld the result (NumericFld) contains invalid data and further in the code gets a decimal data error. Yes, I can add a monitor to trap it.
>
> I know when it is going to happen because I can test on field type (P), length (Odd digits) and first position of Data contains X'40'.
>
> First, Why does it decide to interpret the X'40' as a space I assume only in the scenario?
>
> What can I do about it?
>
> Is there a better way of parsing out the data?
>
> Thanks!!!
>
>
> 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