NEXT-LISTING (Thanks to Glenn Depuy)

["Benjamin Le" <ble.DOMAIN1.oramail@zeus.cc.pcc.edu>]

Hi SQR gurus:
For your information, NEXT-LISTING will not work in lining up if it places in
a procedure which is crossing other procedures. It will work well only
individual procedure without crossing others. Thanks to Glenn DePuy pointed out
and recommended using the following logic:

	begin-procedure get-instructor
	move 'Y' to $first
	begin-select
	....			&instructor
	  if $first = 'Y'
 	     print &instructor	(,103)
	     move 'N' to $first
  	  else
	     print &instructor  (+1,103)
          end-if
        ....
Nice try for NEXT-LISTING huh! Thanks all for responces. You all are great!
___________________________________________________________
Benjamin Le, Programmer/Analyst
Portland Community College, Computer Information Technology  
E-mail: ble@pcc.edu  (503)-977-4979  Fax:(503)-977-4987
-----------------------------------------------------------