SQR 3.0.7 problem

[Jeffrey Goodrich <GOODRIJG@ALFREDTECH.EDU>]

Hi,

I am having a problem using SQR 3.0.7 on VAX.  The below program which
produces labels works under SQR 2.1.4 (our production version).
However on SQR 3.0.7 it produces a system error on the
next-column at-end=newpage  statement.  Any ideas anyone?

Jeff Goodrich
Alfred State College

goodrijg@snyalfva.cc.alfredtech.edu



begin-setup
   page-size 6 80
   no-formfeed
end-setup

...

begin-procedure write-label

display '@write-label'
let $msg = ''
if $inq_ltr_code = '3'
   let $msg = 'To the Parent/Guardian of '
end-if
print        $inq_hs_status                           (1,20)
print        $inq_lb_type                             (0,+1)
print        $inq_ltr_code                            (0,+1)
print        $inq_contact_type                        (0,+1)
print        $inq_top_ten                             (0,+1)
let $line2_msg = substr($msg || $inq_first_name || ' ' || $inq_last_name,1,65)
print        $line2_msg                               (2,1)
print        $inq_street_line1                        (3,1)
   if isnull($inq_street_line2)
      print  $inq_city                                (4,1)
      print  $inq_state                               (0,+2)
      print  $inq_zip                                 (0,+3)
      print  $inq_street_line2                        (5,1)
      end-if
   if not isnull($inq_street_line2)
      print  $inq_street_line2                        (4,1)
      print  $inq_city                                (5,1)
      print  $inq_state                               (0,+2)
      print  $inq_zip                                 (0,+3)
      end-if

display '@position'
position (+1,1,0)
display 'after position'
next-column at-end=newpage
display ' after next-column'

add 1 to #total

end-procedure

--------------------------------------------------------------------------

output log using SQR 3.0.7


@write-label
@position
after position
%SYSTEM-F-ACCVIO, access violation, reason mask=00,
 virtual address=00000000, PC=00825909, PSL=03C00000
%TRACE-F-TRACEBACK, symbolic stack dump follows
module name     routine name                     line       rel PC    abs PC

DCOLMN          sq181                            5160      00000021  00825909
WRTPAG          sq229                            6318      000000C6  0082BDA6
DCOLMN          sq083                            4973      000001B8  008255F0
DDO             sq060                            4863      0000038B  00826B47
DDO             sq060                            4863      0000038B  00826B47
RUNPGM          sq184                            5304      00000857  0083A6D3
SQR             main                             5843      0000046F  0081C313
%DCL-W-SKPDAT, image data (records not beginning with "$") ignored