Re: How to find out the main memory capacity

["Steve Landess" <steve_landess@xxxxxxxxxxx>]

And if this is JDE code, It would NEVER compile, so I'm wondering about this
example...

SHDCTO is a 2-byte character field which you cannot compare to the numeric
value 1 as below.  Compiling this code would produce the following message:

* QRG7052 Severity:  30   Number:    1
          Message . . . . :   The entries for factors 1 and 2 are not of the
            same type. Specification ignored.

Steve

----- Original Message ----- 
From: <rob@xxxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Thursday, August 14, 2003 1:45 PM
Subject: Re: How to find out the main memory capacity


> Not to start a debate on the merits of GOTO, however
> <snip>
> C           SHDCTO    IFGT 1
> C                     GOTO END
> C                     ELSE
> C                     Z-ADD1         COUNT
> C                     END
> C           END       TAG
> <endsnip>
> I'll grant you that the GOTO/TAG combo on such structured code is silly.
> However, using an ELSE on such simple logic is not.  It allows room for
> growth in the future.  In fact I've gotten away from using IF's in less
> than the most rudimentary cases.  The SELECT logic is much more flexible
> than having to modify your ELSE constructs.
> Select;
> When shdcto >= 1;
>   count=1;
> EndSl;
> Actually, that is only one line of code more than:
> If shdcto>=1;
>   count=1;
> EndIf;
> However, it is much cleaner than nested if's/else's; allowing for
> modifications and code growth.
>
> And I bet that the compiler never executes the Select statement, so those
> of you monitoring nanoseconds probably don't have a concern.
>
> Rob Berendt
> -- 
> "Seek first to understand"
> Stephen Covey "Seven Basic Habits of Highly Effective People"
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>