|
Not even in old RPGIII did you always see SETON or SETOFF. Sometimes indicators were set on/off as a result of other operations, like CHAIN, COMP, etc. Sometimes people did strange things with arrays. So, unless you are the BDFL on all software you will ever work on, sooner or later you will run across someone doing *inlr=*on. Better to use a good cross reference tool or know tricks and exceptions for scanning. Rob Berendt -- Group Dekko Services, LLC Dept 01.073 PO Box 2000 Dock 108 6928N 400E Kendallville, IN 46755 http://www.dekko.com |-----------------------------+-------------------------------------------| | Simon Coulter | | | <shc@xxxxxxxxxxxxxxxxx> | | | Sent by: | To| | rpg400-l-bounces@midrange.| RPG programming on the AS400| | com | / iSeries | | | <rpg400-l@xxxxxxxxxxxx> | | 07/26/2004 05:29 PM | cc| | | | | Please respond to | Subject| | RPG programming on the | Re: converting string to a | | AS400 / iSeries | numeric | | <rpg400-l@xxxxxxxxxxxx>| | | | | | | | | | | | | | | | | |-----------------------------+-------------------------------------------| On 27/07/2004, at 8:08 AM, Scott Klement wrote: > d) If you're intending to write a free-format program, please don't > switch > back to fixed-format just to set on the LR indicator. That looks > silly! > You can just do *inlr = *on Call me old-fashioned but because indicators are such dangerous little suckers I'd rather see an explicit SETON or SETOFF operation. Use numeric operations for numeric operands, character operations for character operands, and indicator operations for indicator operands. Regards, Simon Coulter. -------------------------------------------------------------------- FlyByNight Software AS/400 Technical Specialists http://www.flybynight.com.au/ Phone: +61 3 9419 0175 Mobile: +61 0411 091 400 /"\ Fax: +61 3 9419 0175 \ / X ASCII Ribbon campaign against HTML E-Mail / \ -------------------------------------------------------------------- -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.