Re: Right justify?

[Royce Lithgo <RLithgo@MACQUARIE.COM.AU>]

Kristin,

here's a procedure I wrote to do that.

!------------------------------------------------------------------------------
! Procedure:    Print-Heading
! Purpose:      Print a report heading, right alligned.
!------------------------------------------------------------------------------
begin-procedure Print-Heading($head, #width)

  let #pos={w_SEP} + #width - length($head)
  print $head   (,+#pos)        UNDERLINE

end-procedure

An example call:

do Print-Heading('Amount', {w_AMNT})

where w_AMNT is #defined as the width of the column the heading is being printed in.  As you are using double row headings, you might want to include a parameter for controlling whether an underline should be printed.

Hope this helps,

Royce.

-----Original Message-----
From: Love, Kristin [mailto:klove@MSA.COM]
Sent: Thursday, 19 August 1999 1:11 AM
To: Multiple recipients of list SQR-USERS
Subject: Right justify?


I never cared about making things look nice before... but now I do

I have a column with dollars which prints the values as $80,000.00 (or
whatever) all lining up on the right.

I want to put the title "Total Dollars" over the column, with Total over
Dollars, all right justified and underlined, to match where my dollars end.

How do I accomplish this?

I remember seeing something like this in my old SQR3 manual, but can't find
it in my SQR4 manual.

:) Kristin