topic Re: How to read packed decimal correctly in the zOS environment in SAS Programming

How to read packed decimal correctly in the zOS environment

HK1 — Tue, 13 Dec 2016 05:17:48 GMT

Can you let me know how to read in packed decimal data correctly. I have tried two different formats and it is not listing last digit correctly:

DATA _NULL_;

ACCTI = '0123456789001234567C'X;

ACCTO = INPUT(ACCTI, PD10.);

PUT '1 ' ACCTI= HEX. ACCTO= 20.;

ACCTO = INPUT(ACCTI,7 S370FPD10.);

PUT '2 ' ACCTI= HEX. ACCTO= 20.;

RUN;

The following is the info from SYSOUT

1 ACCTI=0123456789001234567C ACCTO=123456789001234560

2 ACCTI=0123456789001234567C ACCTO=123456789001234560

Thanks

Re: How to read packed decimal correctly in the zOS environment

Shmuel — Tue, 13 Dec 2016 07:05:11 GMT

To read PD you need use informat S370FPDw. where w is the length in bytes:

6 bytes enable 11 digits and a sign - should be read by: input var s370fpd6.

Re: How to read packed decimal correctly in the zOS environment

HK1 — Tue, 13 Dec 2016 07:10:09 GMT

Thanks for the info. Here I am trying to read max 18 digits and there is C at the end. Thought in the scenario we will need PD10?

Re: How to read packed decimal correctly in the zOS environment

Shmuel — Tue, 13 Dec 2016 07:20:43 GMT

That's right - s370fpd10.

Re: How to read packed decimal correctly in the zOS environment

Kurt_Bremser — Tue, 13 Dec 2016 08:01:31 GMT

@HK1 wrote:
Thanks for the info. Here I am trying to read max 18 digits and there is C at the end. Thought in the scenario we will need PD10?

Usually, dec_fixed numbers are defined in PL/1 with an uneven number of digits, as you will need 10 bytes for 18 or 19 digits anyway, so the programmer takes the larger digit count.