Re: How to print upper case ?

>Is there any way to print a character string in UPPER case 
>letters only ?    I am looking for any keyword in either 
>printer files or some other way in program ?

There is no DDS keyword that you can use, but you can translate
from lower case to upper case easily enough.  In RPG400:

I              'abcdefghijklmnopqrst-C         LC
I              'uvwxyz' 
I              'ABCDEFGHIJKLMNOPQRST-C         UC
I              'UVWXYZ' 
C           LC:UC     XLATEINPUT     OUTPUT

or, if you want to guarantee multi-national support, you can use
the QLGCNVCS API described in the National Languages Support
chapter of the System API Reference manual.  (Thanks to Bruce
Vining for this sample code!)


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

hope this helps!

Buck Calabro
CommSoft, Albany, NY
mailto:mcalabro@commsoft.net



* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *