Re: truncating a decimal value in /Free (Hijacked & Solved...the hijacked that is) -- RPG400-L

Subject: Re: truncating a decimal value in /Free (Hijacked & Solved...the hijacked that is)
From: Mark S Waterbury <mark.s.waterbury@xxxxxxxxxxxxx>
Date: Tue, 22 Jan 2013 12:00:19 -0500
List-archive: <http://archive.midrange.com/rpg400-l>
List-help: <mailto:rpg400-l-request@midrange.com?subject=help>
List-id: "RPG programming on the IBM i \(AS/400 and iSeries\)" <rpg400-l.midrange.com>
List-post: <mailto:rpg400-l@midrange.com>
List-subscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=unsubscribe>

Buzz:

Why perpetuate bad practices and poor coding style?

Just code:

/end-free
C MOVEA'101' *IN,30
/free

and be done with it...

The "/end-free" and "/free" can also serve to warn future maintainers that what follows is "old code" that probably should be replaced with something better (someday).

HTH,

Mark

This mailing list archive is Copyright 1997-2026 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.