RE: BIF to trim leading 0's

["Stone, Brad V (TC)" <bvstone@xxxxxxxxxxxxxx>]

Here goes.  I hope it comes through ok.  This is old source written for V3R3
and could probably updated...

I usually call it like this:

#ZChar(field:%size(field))

      *//////////////////////////////////////////////////////////////*
      * (#ZChar) Zero Supress A Character Field                      *
      *                                                              *
      * This procedure will replace all leading zeros with blanks.   *
      *//////////////////////////////////////////////////////////////*
     P #ZChar          B                   EXPORT
      *--------------------------------------------------------------*
     D #ZChar          PI           256
     D  text                        256    VALUE
     D  size                          3  0 VALUE
      *
     D textout         S            256
     D i               S              3  0
      *--------------------------------------------------------------*
     C     1             do        size          i
      *
     C                   if        (%subst(text:i:1) = ' ')
     C                   ITER
     C                   endif
      *
     C                   if        (%subst(text:i:1) = '0')
     C                   eval      %subst(text:i:1) = ' '
     C                   ITER
     C                   endif
      *
     C                   LEAVE
     C                   enddo
      *
     C                   eval      textout = %trim(%subst(text:1:size))
      *
     C                   if        (textout = ' ')
     C                   eval      textout = '0'
     C                   endif
      *
     C                   RETURN    textout
      *--------------------------------------------------------------*
     P #ZChar          E

> -----Original Message-----
> From: Barnes, Edward V. (RPW) [mailto:EVBarnes@reliefprinting.com]
> Sent: Friday, March 09, 2001 10:08 AM
> To: 'RPG400-L@midrange.com'
> Subject: RE: BIF to trim leading 0's
> 
> 
> please do so
> 
> -----Original Message-----
> From: Stone, Brad V (TC) [mailto:bvstone@taylorcorp.com]
> Sent: Friday, March 09, 2001 7:23 AM
> To: 'RPG400-L@midrange.com'
> Subject: RE: BIF to trim leading 0's
> 
> 
> I have a #ZChar() function (Zerosupress Character) I wrote a 
> few years ago
> that still works like a charm today.  It' simple and I can 
> post the source
> if folks want.
> 
> But, if you can compile to v3r7 %editc should work.
> 
> Brad
> 
> 
> 
> > -----Original Message-----
> > From: Prowak, Dave [mailto:DProwak@ci.syracuse.ny.us]
> > Sent: Friday, March 09, 2001 9:11 AM
> > To: RPG400-L@midrange.com
> > Subject: BIF to trim leading 0's
> > 
> > 
> > 
> > Hi,
> > 
> >     Is there a BIF to trim leading 0's off of a numeric 
> > field AND reduce
> > the field size accordingly?
> > 
> >     i.e. a field with a value of 000012345
> >     I want to print:
> >     "value: 12345"
> >     instead of 
> >     "value: 000012345"
> >     or
> >     "value:        12345"
> > 
> > Thanks from snowy Upstate NY,
> > Dave
> > 
> > 177 inches and counting......
> > 
> > 
> > 
> >  
> > +---
> > | This is the RPG/400 Mailing List!
> > | To submit a new message, send your mail to RPG400-L@midrange.com.
> > | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to 
> > RPG400-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator: 
> > david@midrange.com
> > +---
> > 
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to 
> RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to 
> RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: 
> david@midrange.com
> +---
> 
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---