Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!columbia!rutgers!sri-spam!ames!ucbcad!ucbvax!prism.clemson.EDU!warnock
From: warnock@prism.clemson.EDU ("Todd Warnock")
Newsgroups: comp.os.vms
Subject: callable sort
Message-ID: <8705220535.AA13382@ucbvax.Berkeley.EDU>
Date: Thu, 21-May-87 13:41:00 EDT
Article-I.D.: ucbvax.8705220535.AA13382
Posted: Thu May 21 13:41:00 1987
Date-Received: Sat, 23-May-87 14:31:04 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: "Todd Warnock" <warnock@prism.clemson.edu>
Distribution: world
Organization: The ARPA Internet
Lines: 80

According to the manuals, this should work.  It doesn't !  Can anyone offer
clues as to why ?    Much thanks as usual !

Todd Warnock
VAX Systems
Clemson University
Clemson, South Carolina 29634-2803

ARPA:	Warnock@Prism.Clemson.EDU
BITnet:	Warnock@Clemson
CSnet:	Warnock@Clemson.CSnet

------------------------- fortran sort program follows ------------------------
	program sort

	character*7	before(10)
	character*7	after(10)
	character*1	return_rec
	integer		key(5)
	integer		status
	integer		lrl /7/
	integer		sor$begin_sort
	integer		sor$release_rec
	integer		sor$sort_merge
	integer		sor$return_rec
	integer		sor$end_sort

	external	dsc$k_dtype_t

	key(1) = 1
	key(2) = %loc(dsc$k_dtype_t)
	key(3) = 1
	key(4) = 0
	key(5) = 1

	before(1) =  'ARECORD'
	before(2) =  'FRECORD'
	before(3) =  'ERECORD'
	before(4) =  'CRECORD'
	before(5) =  'HRECORD'
	before(6) =  'DRECORD'
	before(7) =  'GRECORD'
	before(8) =  'BRECORD'
	before(9) =  'JRECORD'
	before(10) = 'IRECORD'

c begin sort

	status = sor$begin_sort(keybuf,lrl)
	if (.not.status) call sys$exit(%val(status))

c release records to sort

	do 10, i=1,10
		status = sor$release_rec(before(i))
		if (.not.status) call sys$exit(%val(status))
10	continue

c sort/merge

	status = sor$sort_merge()
	if (.not.status) call sys$exit(%val(status))

c return records 

	do 20, i=1,10
		status = sor$return_rec(after(i),len)
		if (.not.status) call sys$exit(%val(status))
		type*,after(i)
20	continue

c end sort

	status = sor$end_sort()
	if (.not.status) call sys$exit(%val(status))

	end

------------------------- end of fortran sort ----------------------------------
------