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 first published in July 2004

Dig deeper on iSeries CL programming

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

SearchEnterpriseLinux

SearchDataCenter

Close