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

[Dhiraj <dhirajpandey@xxxxxxxxx>]

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