Re: SQR 3.0.7 problem

[johnk@SUN4.MITI.COM]

     There is a problem with using the next-column command when no columns
     have been defined. I reproduced the exact same stack dump on VAX when
     I had this scenario. Since I can't see where or if you have a columns
     command, I assume that you don't. Try adding:  'columns 1' at the
     start of your program.

     John L. Kellogg
     MITI Technical Support Manager

______________________________ Reply Separator _________________________________
Subject: SQR 3.0.7 problem
Author:  usa.net!SQR-USERS@netcomsv.netcom.com at Internet
Date:    01/12/95 7:50 AM


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