Re: RPG Field Scan

AAARRRGGGHHHH!  Someone actually thinks that code is neat?

Here's two reasons to avoid coding like that:

1) If you ported the code to VisualAge RPG, it wouldn't work since the
PCs don't use the EBCDIC character set.

2) It doesn't work for non-alphabetic characters.  (Granted, there aren't
a lot of useful characters that would be affected.  Two that are of interest
to C programmers, though, are '[' and ']'.  Applying the same technique
to ASCII characters would hit most punctuation, as well as the digits!)

BTW, while we're on the subject, you also should avoid tests like
(CHAR>='A' AND CHAR<='Z') since there are also non-alphabetic
characters within that range in the EBCDIC character set.

Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com


---------------------- Forwarded by Hans Boldt/Toronto/IBM on 98-03-12 07:29
---------------------------


owner-midrange-l@midrange.com on 98-03-12 01:01:54
Please respond to MIDRANGE-L@midrange.com @ internet
To: MIDRANGE-L@midrange.com @ internet
cc:
Subject: Re: RPG Field Scan


Neil,
"Nasty"....is the wrong adjective.  "Really neat" is more appropo!
 --
:) Tim & Dana Truax (:


Neil Palmer wrote:

> Here's a nasty bit of RPGII code to convert to upper case
> C                     DO   18        IX
> C                     BITON'1'       SNM,IX
> C                     END



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



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