Hi Freind,

I want to center - right align my decimal data but i can't please help me.
my code is like the following:

  
DEFINE FILE CAR
WHEELBASE/D20.2 = IF WHEELBASE EQ 105 OR 85 THEN (-1) * WHEELBASE ELSE WHEELBASE;
WHEELBASE1/A25=  TRIM('B', FTOA(WHEELBASE, '(D20.2)', 'A25'), 25, ' ', 25, 'A25') ;
END
 
TABLE FILE CAR
PRINT CAR  WHEELBASE1
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
 TYPE=REPORT, COLUMN=WHEELBASE1, JUSTIFY=CENTER,  SQUEEZE=ON, $
 TYPE= DATA,    COLUMN=WHEELBASE1, JUSTIFY=CENTER, $
ENDSTYLE
END

Now the WHEELBASE1 column data is not aligning in right position in center as the following:

CAR               WHEELBASE1
------         ---------------
JAGUAR              -105.00
JAGUAR              112.80
JENSEN              -105.00

Expected:

CAR               WHEELBASE1
------         ---------------
JAGUAR             -105.00
JAGUAR              112.80
JENSEN             -105.00

Thanks A lot

This message has been edited. Last edited by: <Kathryn Henning>,

Check below code. There are always better way of doing in WebFOCUS. This might give some idea.

DEFINE FILE CAR
WHEELBASE_D/D20.2 = IF WHEELBASE EQ 105 OR 85 THEN (-1) * WHEELBASE ELSE WHEELBASE;
WHEELBASE_A/A30V = FTOA(WHEELBASE_D, '(D20.2)', 'A25V');
WHEELBASE_T/A30V = TRIMV('B', WHEELBASE_A, 39, ' ', 1, WHEELBASE_T);
LENWHEELBASE/I11=LENV(WHEELBASE_T,'I11');
WHEELBASE_N/A37V=IF LENWHEELBASE EQ 7 THEN WHEELBASE_T 
ELSE IF LENWHEELBASE EQ 6 THEN ' ' | WHEELBASE_T 
ELSE IF LENWHEELBASE EQ 5 THEN '  ' | WHEELBASE_T 
ELSE IF LENWHEELBASE EQ 4 THEN '   ' | WHEELBASE_T 
ELSE '';
END

TABLE FILE CAR
PRINT 
CAR 
WHEELBASE_D AS 'Existing Output'
WHEELBASE_N AS 'Expected Output'
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
TYPE=REPORT, BORDER=ON, PAGESIZE=LEGAL,$
TYPE=REPORT, COLUMN=WHEELBASE_N, JUSTIFY=CENTER,  SQUEEZE=ON, $
 TYPE= DATA,    COLUMN=WHEELBASE_N, JUSTIFY=CENTER, $
  TYPE= DATA,    COLUMN=WHEELBASE_D, JUSTIFY=CENTER, $
ENDSTYLE
END

Thanks,
Ram

Hi Ram,

Thanks a lot from your nice codding that help me a lot.