Reply to WRAP Command

[Johnny Ravela <johnny@RMF41.USACE.ARMY.MIL>]

>  I am trying to print two multiline text fields side by side on a report. I am
>  using the statements:
>
>   print &id (+1,40)
>   print &desc (0,50) wrap 30 5 ON=<13> STRIP=<10>
>   print &res (0,85) wrap 30 5  ON=<13> STRIP=<10>
>
Here is the fix to your problem. And anybody who wants to see a simple
sqr program.

! !!!!!!!!!!!!!!!!!!!
This is an SQR program
! !!!!!!!!!!!!!!!!!!!

begin-report
  do 001-setup-stuff
end-report

begin-procedure 001-setup-stuff

     let $id = 'JOHNNY1234'
     let $desc = 'The first multiline field prints fine, but the next
                  one may not print well.'
     let $res = 'Looks like the second multiline field prints fine as well.'

     print $id (+1,7)
     print $desc (,20) wrap 15 6 ON = <13> STRIP = <10> keep-top
     print $res (,50) wrap 15 6 ON = <13> STRIP = <10> keep-top

     !   keep-top retains the current line position except if a page break
     !   occurs, in which case line 1 is used as the current line.

     new-page  ! gotta flush............

end-procedure !

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Here is the listing file (.lis)
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!

      JOHNNY1234   The first                     Looks like the
                   multiline field               second
                   prints fine,                  multiline field
                   but the next                  prints fine as
                   one may not                   well.
                   print well.