RE: RPG Field Scan

Yep - all those assumptions were correct for this piece of code, written
back in 1977 on a S/34 !

This was simply a surname field.  The database could contain a mixture
of upper/lower case in the field, and the requirement for printing the
T4 forms (Canadian federal annual tax statements, like a US W2) was that
the name be printed in capitals.

Hey Hans - back in '77 on the S/34 we didn't have or care about no
steenking VA RPG, C, or ASCII  !     :-)



Neil Palmer                                AS/400~~~~~      
NxTrend Technology - Canada   ____________          ___  ~     
Thornhill, Ontario,  Canada   |OOOOOOOOOO| ________  o|__||=   
Phone: (905) 731-9000  x238   |__________|_|______|_|______)   
Cell.: (416) 565-1682  x238    oo      oo   oo  oo   OOOo=o\   
Fax:   (905) 731-9202       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
mailto:NPalmer@NxTrend.com    AS/400  The Ultimate Business Server      
http://www.NxTrend.com

> -----Original Message-----
> From: bvining@VNET.IBM.COM [SMTP:bvining@VNET.IBM.COM]
> Sent: Thursday, March 12, 1998 10:37 AM
> To:   MIDRANGE-L@midrange.com
> Subject:      RPG Field Scan
> 
> Neil,
> 
> That approach will work though there are some assumptions being made.
> Some that come to mind are:
> 
>     1. EBCDIC base
>     2. The user is only interested in the Latin alphabetic a-z (that
> is,
>        don't plan on using the product outside of Latin-1 based
>        environments)
>     3. SNM has been pre-validated to NOT have hex values in the ranges
>        x'8A' - x'8F', x'9A' - x'9F', x'AA' - x'AF', x'BA' - x'BF' or
>        values at x'80', x'90', x'A0', and x'B0' (that is, there is a
>        "whole bunch" of graphic characters that are going to be
>        changed such as the international currency symbol at x'9F'
>        (assuming CCSID 37) to x'DF' (Latin small letter y with
> diaeresis)
>        or x'BB' (left square bracket in CCSID 37) to x'FB'
> (superscript
>        3)).  The actual characters mangled will, of course, vary from
>        CCSID to CCSID.
>     4. Probably some other things...
> 
> But for raw speed, your "nasty" approach is hard to beat (especially
> if IX
> is odd length packed :-)) if the above assumptions are held true.
> 
> Bruce
> 
> >
> >Here's a nasty bit of RPGII code to convert to upper case that I just
> >thought I'd post because I had nothing better to do and thought it
> would
> >be fun to be attacked by all the RPG purists in the world !     :-)
> >
> >C**
> >C** Ensure that Surname prints in CAPITAL letters.
> >C**
> >C                     DO   18        IX
> >C                     BITON'1'       SNM,IX
> >C                     END
> >
> >Neil Palmer                                AS/400~~~~~
> >
> 
> +---
> | 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
+---