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