|
On 06/10/2006, at 4:12 PM, <Geir.Kildal@xxxxxxxxxxxxxxx> wrote:
May be this should be posted in the RPGLE-list, but I'm not there.
Yes, it should be. If you have further RPG questions you should subscribe.
midrange.com
So, what is the equivalent to the COBOL numeric test in RPGLE?
I find: 'FIELD IFGE 0
FIELD ORLE 999' (FIELD is 3 0)
I'm sure RPGLE can do better than this? Or?
That's how it has to be for RPG III (and the so-called RPG/400 dialect). RPG IV supports that form too but gives additional options.
RPG IV fixed-form extended factor 2:CL0N01Factor1+++++++Opcode&ExtExtended- factor2+++++++++++++++++++++++++++++
C IF field >= *ZERO OR field <= 999 RPG IV free-form: /FREE if field >= *ZERO or field <= 999; /END-FREENOTE: I transcribed your example code but I think you probably want to AND the clauses rather than OR them.
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 / \ --------------------------------------------------------------------
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.
