RPG Field Scan

[bvining@xxxxxxxxxxxx]

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
+---