Michael S 2009-08-03 20:09

/* */

rc = define_arrays()

RETURN 0
/************************************************************
 Define our arrays here. 20000 lines should be enough for
 any sourcecode. Can't imagine any sourcecode has more than
 500 sections (if it did, it would be unmaintainable)
************************************************************/ 
define_arrays:

SAY 'Defining arrays'
/*
sourcecode. = GLOBALS("sourcecode",20000)
if sourcecode. < 1 then
 	do
 		say 'Failure GLOBALS, sourcecode, 'sourcecode.
   	say getmsg()
   	return 1
 	end 

section. = GLOBALS("section",500)
if section. < 1 then
	do
		say 'Failure GLOBALS, section, 'section.
		say getmsg()
		return 1
	end 
*/

RETURN 0
FINALLY
/*
say 'DROPGLOBAL on sourcecode and section'
rc = DROPGLOBAL(sourcecode.)
say 'rc from drop source = 'rc
rc = DROPGLOBAL(section.)
say 'rc from drop section = 'rc
*/
SAY 'Running FINALLY code'

Michael S 2009-08-03 20:09