Michael S 2009-07-15 08:45

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

DO i = 1 TO 10
    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.rex(section_token, sourcecode_token, 1, 10, 8)
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

RETURN

Michael S 2009-07-15 08:45