Re: COBOL400-L Digest, Vol 4, Issue 100

Hi,

The corresponding of Numeric Test in Cobol is TESTN in RPGLE.

Regards



On 10/6/06, cobol400-l-request@xxxxxxxxxxxx <cobol400-l-request@xxxxxxxxxxxx>
wrote:

Send COBOL400-L mailing list submissions to
       cobol400-l@xxxxxxxxxxxx

To subscribe or unsubscribe via the World Wide Web, visit
       http://lists.midrange.com/mailman/listinfo/cobol400-l
or, via email, send a message with subject or body 'help' to
       cobol400-l-request@xxxxxxxxxxxx

You can reach the person managing the list at
       cobol400-l-owner@xxxxxxxxxxxx

When replying, please edit your Subject line so it is more specific
than "Re: Contents of COBOL400-L digest..."


Today's Topics:

  1.  IF (NOT) NUMERIC (Geir.Kildal@xxxxxxxxxxxxxxx)
  2. Re:  IF (NOT) NUMERIC (Simon Coulter)


----------------------------------------------------------------------

message: 1
date: Fri, 6 Oct 2006 09:12:34 +0300
from: <Geir.Kildal@xxxxxxxxxxxxxxx>
subject: [COBOL400-L] IF (NOT) NUMERIC

Hi.

May be this should be posted in the RPGLE-list, but I'm not there.  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?

Mvh.

Geir


-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx]On Behalf Of Jon Paris
Sent: Wednesday, October 04, 2006 5:26 PM
To: 'COBOL Programming on the iSeries/AS400'
Subject: Re: [COBOL400-L] Calling COBOL from RPG/RPGLE?


There is no such thing as a "COBOL service program" so ...

???? You are trying to locate a service program currently being used by
other programs?

???? You want to know how to create one?

???? Or ... ?


Jon Paris
Partner400

www.Partner400.com

--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.




------------------------------

message: 2
date: Fri, 6 Oct 2006 17:44:17 +1000
from: Simon Coulter <shc@xxxxxxxxxxxxxxxxx>
subject: Re: [COBOL400-L] IF (NOT) NUMERIC


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.

> 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-FREE

NOTE: 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  / \
--------------------------------------------------------------------




------------------------------

--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) digest
list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.



End of COBOL400-L Digest, Vol 4, Issue 100
******************************************