RE: RPG Field Scan -- MIDRANGE-L

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~~~~~      
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        http://www.NxTrend.com


> -----Original Message-----
> From: bvining@VNET.IBM.COM [SMTP:bvining@VNET.IBM.COM]
> Sent: Wednesday, March 11, 1998 1:09 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      RPG Field Scan
> 
> Scott,
> 
> For the scan function, just using the RPG SCAN opcode should be
> sufficient.  For the uppercasing function, I would suggest using the
> Convert Case (*PGM QLGCNVCS or ILE function QlgConvertCase) system
> API.
> The APIs are documented in the System API Reference National Language
> Support APIs chapter.  To convert the contents of field DATAIN from
> OPM
> RPG (assuming you have already stripped of the '?') you could use:
> 
>      IREQCTL      DS
>      I I            1                     B   1   40TYPE
>      I I            0                     B   5   80CCSID
>      I I            0                     B   9  120CASE
>      I                                       13  22 RESERV
>      IMISC        DS
>      I I            11                    B   1   40LENGTH
>      I I            0                     B   5   80BYTPRV
>      I I            'Hello World'             9  33 DATAIN
>      C                     MOVE *LOVAL    RESERV
>      C                     CALL 'QLGCNVCS'
>      C                     PARM           REQCTL
>      C                     PARM           DATAIN
>      C                     PARM           DATAOT 25
>      C                     PARM           LENGTH
>      C                     PARM           BYTPRV
>      C           DATAIN    DSPLY
>      C           DATAOT    DSPLY
>      C                     MOVE '1'       *INLR
>      C                     RETRN
> 
> Alternatively you could use the RPG XLATE opcode to perform
> uppercasing,
> but using the API provides valid uppercasing in all national languages
> supported by the AS/400 (the CCSID of 0 in REQCTL) without you having
> to be concerned with the language currently in use.
> 
> Bruce Vining
> 
> >
> >I would like to be able to scan a field in a RPG program for a
> certain
> >character.  If that character exist, I would like to take that field
> and
> >convert it all to uppercase to be chained to another file.
> >
> >e.g.
> >
> >  Catalog Number:  gfn 3_______________
> >  Catalog Number:  ?drills_______________
> >
> >If this field starts with a '?' I want to make the field Uppercase
> and
> >then chain it to a different file.  This will be used to signify
> >KEYWORDS within the field without defining a new field. What API's
> are
> >available to make this happen.  and also what are the parm to pass to
> >these API's?
> >
> >TIA
> >Scott Swaim
> >Quality Corps, Inc.
> >scott@qualitycorps.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
+---