Center a field in RPG LE

Need to center a field(s) in RPG? This code takes care of centering a field and can be used over and over.

Need to center a field(s) in RPG? This code takes care of centering a field and can be used over and over.

used to use it for screen and report headings.

   
d   LenStr        s              4  0 inz(0)      
d   ComNam        s             30    inz(*blanks)
d num6            s              6    inz         
d alpha6          s              6    inz('2')  
 * Center a Field Routine                                             
c                   eval      LenStr = ((%len(alpha6) -               
c                             %len(%trim(alpha6))) / 2) + 2           
c                   eval      %subst(comNam:lenstr) = %trim(alpha6)   
 *                                                                     
c                   move      alpha6        num6  

==================================
MORE INFORMATION ON THIS TOPIC
==================================

The Best Web Links: tips, tutorials and more.

Ask your programming questions--or help out your peers by answering them--in our live discussion forums.

Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.


This was last published in July 2004

Start the conversation

Send me notifications when other members comment.

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close