Re: SQR puzzle o' the week

[Nick Moscaritolo x2542 <NMOSCARITOLO@APOLLO.bentley.edu>]

!  Nick Moscaritolo
!  Bentley College
!  >>>>>  for SQR 2.x - we do not have SQR 3 yet

BEGIN-REPORT
  move '' to $new_str_var
  move 1 to #char_ctr
  DO get_column
  show (15,1) cs $new_str_var
END-REPORT

BEGIN-PROCEDURE get_column
BEGIN-SELECT
'HOWDY'              &str_var
  WHILE #char_ctr <= length(&str_var)
    let $new_str_var = $new_str_var||substr(&str_var,#char_ctr,1)||' '
    add 1 to #char_ctr
  END-WHILE     
FROM system.dual
END-SELECT
END-PROCEDURE get_column