× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. August 2003

RE: centering text on a field

And the Varying version.....:


p Mcentra         b                   export              
d Mcentra         pi           256a   Varying             
d InString                     256a   Varying Const      
d nOrgLen         s              5i 0    
d nDataLen        s              5i 0                 
d blanks          s            256a   Varying Inz          
d szData          s            256a   Varying          
c* Capture length of original input field      
c                   Eval      nOrgLen = %Len(InString)
c                   if        nOrgLen < 1  
c* If the input string is empty, return an empty (blank)
value.   
c                   return    ''         
c                   endif   
c* Strip off the leading and trailing blanks from input
string
c                   Eval      szData = %Trim(InString) 
c                   Eval      nDataLen = %Len(szData)
c* Set blank-count to number of leading blanks required.
c                   Eval      %Len(blanks) =       
c                             %Int((nOrgLen-nDataLen)/2)+1 
c                   Return    blanks + szData 
p Mcentra         e                  

__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.