/* */
rc = registerarray.rex()
IF rc <> 0 THEN
	DO
		SAY 'Return code 'rc' from registerarray.rex'
		RETURN
	END	
sourcecode_token = globals('sourcecode',100000)
SAY 'sourcecode_Token = 'sourcecode_token
records=fetch(sourcecode_token,'GUIF2110.CBL')
recordsv=fetchv('sourcecode','GUIF2110.CBL')  /* <---- this fails */
SAY 'records = 'records', recordsv = 'recordsv
content=gets(sourcecode_token, 100)
SAY 'Content of record 100 = 'content
itemno=search(sourcecode_token,'IDENTIFICATION DIVISION.',1,50000,'M') /* <--- this also fails */
SAY 'Itemno = 'itemno

GUIF2110.CBL

FETCHV Message = RC: 8; MSG: 24450944 invalid Array token; TIMES: 24450944 invalid Array token/

.... POS(search_string,temp) ....

recordsv=fetchv('sourcecode','GUIF2110.CBL')  /* <---- this fails */

itemno=search(sourcecode_token,'IDENTIFICATION DIVISION.',1,50000,'M')

In the code above, I would also like to be able (to conform with existing code)
to define the variable as a "normal" stem variable, ie, sourcecode. (note the trailing dot) - is this possible ?

sourcecode_token = globals('123 My Array',100000)
or 
sourcecode_token = globals('Looks.Like.STEM.',100000)
etc. 

Another point. Could you not introduce an option in SEARCH to IGNORE case (ie, obviously your code would have to "uppercase" all the items in the array before doing the search). I don't mean that the array items are ALL uppercased, only that you do an uppercase in your code internally before checking.

And another .... how do I "drop" a variable and restart.

recordsv=fetchv('sourcecode','GUIF2110.CBL')

recordsv=fetchv('sourcecode.','GUIF2110.CBL')

and on the basis of the example I sent you (GUIF2110.CBL containing approx 3500 rows) the difference in elapsed time is noticeable.

Like I think I mentioned to you, I use reginald mainly for manipulation of COBOL source code. This means that I read the code in via LOADTEXT and then use STEMINSERT/STEMDELETE a lot. How do you see me applying that using your array code?

I can see inserting array items using a combination of GLOBALS, PUTSV and COPYGLOBALV, but what about if I need to delete items ?

From my personal, selfish point of view, I would appreciate the ability to do something similar to STEMINSERT/STEMDELETE with equivalent abilities. For example, if I have GUIF2110.CBL where ARRAYHIV returns 3500 items, then if I delete 100 itmes via your array processing, ARRAYHIV would now return 3400. Like I said, my personal selfish request for an improvement.

rc = registerarray.rex()
IF rc <> 0 THEN
    DO
        SAY 'Return code 'rc' from registerarray.rex'
        RETURN
    END    
globals('mySource.',100000)
start_time = TIME('S')

SAY 'Starting program'
filein = 'INLA9960.CBL'
recordsv=fetchv('mySource.',filein) 

sw_finished = 0
arrayhi = arrayhiv('mysource.')
start_row = 1
DO WHILE sw_finished = 0
  rc = searchv('mySource.','procedure division',start_row,arrayhi,,'N') 
	IF rc <> 0 THEN
		DO
			content=getsv('mySource.',rc)
			IF SUBSTR(content,7,1) <> '*' THEN
				sw_finished = 1  /* Not commented - we're done */
			ELSE
				start_row = rc + 1	
		END	
END 
end_time = TIME('S')
SAY 'Array time taken = 'end_time - start_time
 
start_time = TIME('S')

/* Pull the whole file into the stem variable SOURCECODE. */
STREAM(filein, 'C', 'OPEN READ')
LOADTEXT('sourcecode.', filein)
STREAM(filein, 'C', 'CLOSE')

/* find_procedure_division obviously does something similar to 
   the searchv call above */
proc = find_procedure_division.rex(sourcecode.)

end_time = TIME('S')
SAY 'Old method - time taken = 'end_time - start_time

RETURN 

/* */
rc = registerarray.rex()
IF rc <> 0 THEN
	DO
		SAY 'Return code 'rc' from registerarray.rex'
		RETURN
	END	
rc = logoption(1)
sourcecode_token = globals('sourcecode',100)
section_token = globals('section',10)

DO i = 1 TO 100
	itemno=puts(sourcecode_token, i, 'This is sourcecode record 'i)
END

DO i = 1 TO 10
	itemno=puts(section_token, i, 'This is section record 'i)
END

/* Copy all items from sectio_token to sourcecode_token item 4 */
rc=copyglobal(section_token, sourcecode_token, 1, , 4)
SAY 'Rrecords copied = 'rc
hi=arrayhi(sourcecode_token)
SAY 'Value hi in sourcecode_token after copy = 'hi

DO i = 1 TO hi
	content=gets(sourcecode_token,i)
	SAY content
END

Temp records copied = xx

copyglobal.rex

test_array.rex