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

Folks:

The "Harshness" issue has been delt with privately.

david

At 09:15 AM 6/9/99 , you wrote:
>Thats a little harsh!
>
>-----Original Message-----
>From: Simon Coulter [mailto:shc@flybynight.com.au]
>Sent: Wednesday, June 09, 1999 1:01 PM
>To: MIDRANGE-L@midrange.com
>Subject: Re: problem in printing packed decimal in ILE C/400
>
>
>
>Baba wrote:
>
> > > 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
> >
>
>Well of course it doesn't work!  You are reading the file into a 20-byte
>character field and
>printing it as a string of bytes.  C doesn't understand about packed
>data so %s simply attempts
>to print the character representation of the byte.  Most packed numeric
>data results in
>unprintable characters.  The C Reference manual contains examples of how
>to process an
>externally described file containing packed data.  Read the bloody
>thing!
>
>Are you a student with no AS/400 knowledge or are you working for an
>Indian body shop and
>getting farmed out for projects for which you have no skill.  There seem
>to have been a lot of
>these lately.  If the former then read the manaul before asking for
>help,  if the latter then
>get some formal training.
>
>Regards,
>Simon Coulter.
>
>«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
>«» FlyByNight Software         AS/400 Technical Specialists       «»
>«» Eclipse the competition - run your business on an IBM AS/400.  «»
>«»                                                                «»
>«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
>«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
>«»                                                                «»
>«» Windoze should not be open at Warp speed.                      «»
>«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
>//--- forwarded letter
>-------------------------------------------------------
> > X-Mailer: Microsoft Internet E-Mail/MAPI - 8.0.0.4211
> > Date: Tue, 01 Jun 99 14:12:25 +0200
> > From: "Baba Rahiman" <baba.rahiman@kiosk.ch>
> > To: "'midrange-l@midrange.com'" <midrange-l@midrange.com>
> > Reply-To: MIDRANGE-L@midrange.com
> > Subject: problem in printing packed decimal in ILE C/400
>
> >
> > Hi everybody,
> >
> >
> > > 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?
> >
> > regards,
> > baba
> >
> > +---
> > | 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
> > +---
> >
>
>+---
>| 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
>+---
>+---
>| 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
>+---

+---
| 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
+---