RE: Edit code edit word

[Chris Bipes <rpg@xxxxxxxxxxxxxxx>]

Use a character field for the printer field and the following

If   Number = *zero
Eval Num2Prt = *blank
else
Eval Num2Prt = %EditW(Number:'00000000.00-')
EndIf

substitute the proper mask for the way you want to print a non-zero number.

Christopher K. Bipes     mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst   mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.         http://www.cross-check.com
6119 State Farm Drive    Phone: 707 586-0551 x 1102
Rohnert Park CA  94928 Fax: 707 586-1884

If consistency is the hobgoblin of little minds, only geniuses work here.
Karen Herbelin - Readers Digest 3/2000

-----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  email message and files transmitted with it are confidential,
proprietary
and legally privileged. If the message that is received is an error, or if
there
is  any  mistransmission,  the  originator  must  be notified immediately as
the
unauthorized  use,  dissemination, publication, transfer or any other use of
the
message  by  unauthorized person is strictly forbidden by law and
prohibited. If
anybody  commits  violation then he would be legally liable and punishable
under
the  relevant  law.  The  intended  recipient  can  be  rest  assured  that
the
confidentiality and privilege is not waived or lost by any such
mistransmission.

Internet  communications  are  not secure unless it is protected by using
strong
cryptography.  TCS  does not accept any responsibility whatsoever for
changes in
the nature of modifications, additions, deletions made to the message once
it is
sent.

TCS  reserves  the  right  to  monitor  all  e-mail  communications  through
its
network."
----------------------------------------------------------------------------
---------

Tata Consultancy Services
www.tcs.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
+---