Need to center a field(s) in RPG? This code takes care of centering a field and can be used over and over.
By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.
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.