Re: Does anyone have.......

Here's a SR in RPGII:

     I              'ABCDEFGHIJKLMNOPQRST-C         X$UP                     
     I              'UVWXYZ'                                                 
     I              'abcdefghijklmnopqrst-C         X$LO                     
     I              'uvwxyz'                                                 
      * 
     C           RTITLE    BEGSR                           BUILD/CENTER REPORT 
     C                     CLEARR$TITL                                         
     C           X$LO:X$UP XLATETN35      WRK$40 40 P      Xlat to UpperCase
     C           ' '       CHEKRWRK$40    W#1     20                           
     C           40        SUB  W#1       W#2     20                           
     C           W#2       DIV  2         W#3     20                           
     C                     CAT  WRK$40:W#3R$TITL 40                            
     C                     ENDSR                                               

______________________________ Reply Separator _________________________________

     Does anyone have a routine that will center the text of a field that 
     they would like to share?


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