|
midrange.com
The main body of this was taken from a Bob Cozzi example I think. If not
then I apologize to the person who I got it from.
*,--------------------------------------------------------------------------
---------------
H nomain
*,--------------------------------------------------------------------------
---------------
H debug(*YES)
H indent('| ')
H option(*SRCSTMT)
*,--------------------------------------------------------------------------
---------------
D CenterFld PR 32766 OpDesc
D FieldToCtr 32766 Options(*varsize)
*,--------------------------------------------------------------------------
---------------
P CenterFld B Export
*,--------------------------------------------------------------------------
---------------
D CenterFld PI 32766 OpDesc
D FieldToCtr 32766 Options(*varsize)
*,--------------------------------------------------------------------------
---------------
D CEEDOD PR
D ParmNum 10I 0 Const
D 10I 0
D 10I 0
D 10I 0
D 10I 0
D 10I 0
D 12A Options(*omit)
*,--------------------------------------------------------------------------
---------------
D DescType S 10I 0 Inz
D DataType S 10I 0 Inz
D DescInfo1 S 10I 0 Inz
D DescInfo2 S 10I 0 Inz
D InLen S 10I 0 Inz
D HexLen S 10I 0 Inz
*,--------------------------------------------------------------------------
---------------
D X S 5 0 Inz
D Y S 5 0 Inz
D Z S 5 0 Inz
*,--------------------------------------------------------------------------
---------------
D ReturnFld S Like(FieldToCtr)
*,--------------------------------------------------------------------------
---------------
C CallP CEEDOD( 1 :
C DescType :
C DataType :
C DescInfo1 :
C DescInfo2 :
C InLen :
C *omit )
C Z-Add InLen X
C ' ' Checkr FieldToCtr:X Y
C Eval Z = ((X - Y) / 2) + 1
C Eval %subst(ReturnFld:Z:Y) =
C %subst(FieldToCtr:1:Y)
C Return ReturnFld
P CenterFld E
*,--------------------------------------------------------------------------
---------------
John J. Walsh
IBM Certified Specialist - AS/400 RPG IV Developer
IBM Certified Specialist - AS/400 RPG IV Programmer
----- Original Message -----
From: "Booth Martin" <Booth@xxxxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, August 14, 2003 9:39 AM
Subject: centering text on a field
>
>
> What is the current best practice to center text of unknown length in a
> field of unknown length?
>
> It occurs to me I am making it much too difficult.
>
> (free form is nice I suppose but an example in ordinary RPGIV would be
> easier for me to understand)
>
> ---------------------------------------------------------
> Booth Martin http://www.MartinVT.com
> Booth@xxxxxxxxxxxx
> ---------------------------------------------------------
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
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.
