RE: centering text on a field -- RPG400-L

× 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.

Subject: RE: centering text on a field
From: Marco Facchinetti <facchinetti@xxxxxxxxx>
Date: Thu, 14 Aug 2003 09:16:33 -0700 (PDT)
List-archive: <http://archive.midrange.com/rpg400-l>
List-help: <mailto:rpg400-l-request@midrange.com?subject=help>
List-id: RPG programming on the AS400 / iSeries <rpg400-l.midrange.com>
List-post: <mailto:rpg400-l@midrange.com>
List-subscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>,<mailto:rpg400-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>,<mailto:rpg400-l-request@midrange.com?subject=unsubscribe>

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 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.