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 email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
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.