× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: RE: Z-ADD or Eval?
  • From: "Mark A. Manske" <mmanske@xxxxxxxxxxxxxxxxxx>
  • Date: Tue, 22 Aug 2000 15:08:08 -0500
  • Importance: Normal

IMHO I would take it one step further "if" at all possible; your last
example is the best; however; see
"if" you can even eliminate the *IN99; IE if it is used for file i/o
validation, use the %found, %eof and the like - if *in99 is on because of a
value, say the old statement was      a      comp    12          99; then
try

if a = 12
eval isvalueofa12 = 'Y'
endif

depending on your application, ILE has really opened the door to self
documented code; be creative, be logical,
experiment, but most of all; have fun learning just how far you can push
yourself.

HTH

Mark A. Manske
[mailto:mmanske@minter-weisman.com]
Sr. Project Lead
Minter-Weisman


-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of Jim Langston
Sent: Tuesday, August 22, 2000 2:22 PM
To: RPG400-L@midrange.com
Subject: Z-ADD or Eval?


I am trying to use all Evals in my programming just because it is much
easier to read and understand.

My question is, however, should I be converting Z-ADDs to Evals?  I
understand we use(d) Z-ADD
instead of MOVE because Z-ADD was more effiecient.  We could of used MOVE,
but we used Z-ADD.
Now, if I have a statement (and I do):

      C   99              Z-ADD     *ZERO         EQSIZE

and I want to convert this to "modern" programming, should it become:

      C                   If       *IN99
      C                   Z-Add     *Zero         EqSize
      C                   EndIf

or should it become:

      C                   If       *IN99
      C                   Eval      EqSize = *Zero
      C                   EndIf

Any comments on this are appreciated.

Regards,

Jim Langston


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.