RE: Edit code edit word

This won't work.  He wants all blanks when the value is zero, but *NO*
zero-suppression when the value is NOT zero.  I.e.:

DATE80 = 00000000  ===>  print blanks '        '
DATE80 = 19991225  ===>  print '1999/12/25' (assuming edit word '0bbb/bb/bb'
where b=blank)

If he just uses the edit word without conditioning, a value of zero will
print 000/00/00.  Therefore, he needs to test the value and set an indicator
before printing it, and condition the output of that field in the printer
DDS.

- Dan Bale

> -----Original Message-----
> From: Martin, Booth [SMTP:BoothM@goddard.edu]
> Sent: Monday, May 08, 2000 10:37 AM
> To:   'RPG400-L@MIDRANGE.COM'
> Subject:      RE: Edit code edit word
> 
> Put a "0" in the left-most position that you want the first zero to
> appear.
> 
> -----Original Message-----
> From: Rajeev_Asthana@noida.tcs.co.in
> [mailto:Rajeev_Asthana@noida.tcs.co.in]
> Sent: Monday, May 08, 2000 9:32 AM
> To: boothm@goddard.edu
> Subject: Edit code edit word
> 
> 
> Hi,
> 
> Is there any EDTCDE/EDTWRD for Printer file by which I can zero-suppress a
> value of all zeros to blanks but no zero suppression for non-zero values?
> 
> Thanks,
> Rajeev.
+---
| 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
+---