Re: problem in printing packed decimal in ILE C/400

> > We are unable to get printable/readable normal character form, while
> > reading record in Physical file using  _Ropen()/_Rreadn() on ILE C/400-(
> > V3R1M0).
> >
> > Sample code:
> > int main(void)
> >   {
> >  char record??(20??);
> >   _RFILE *fb;_RIOFB_T *fbt;
> >  fb = _Ropen("PHname","rr");
> >  fbt = _Rreadn(fb,record,sizeof(record),__DFT);
> >  printf(" %s \n ",record);
> > }
> >
> > Problem: We're not able to print on screen if it is packed_decimal
> > data type
>
>
> any suggestions?

You can do things like this with [f/s]printf() to print out a record field
that is packed -

#include <stdio.h>
#include <stdlib.h>
#include <decimal.h>

int main()
{
  decimal(6,2) dec1 = 1234.67d;

  /* old style, need to know details */
  printf("The decimal = %D(6,2)\n", dec1);

  /* new style, can print any decimal */
  printf("The decimal = %D(*,*)\n", digitsof(dec1), precisionof(dec1),
dec1);

  return 0;
}

This way, you can code the [f/s]printf() without having to know the
details of each decimal type.

Hope this helps,

Phil Hall
________________________________________________

email . . . . : hallp@ssax.com
phone(w). . . : (312) 258-6319

News/400 C/C++ Forum moderator at;
     http://www.news400.com/c/indexNEW.htm
________________________________________________



+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---