Guidance
指路人
g.yi.org
Upload / Forum Attachment / Reginald Rexx Programming Language Compiler User Forum Attachments and Pictures / 13076-test_array.rex

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
/* */
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
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sun 2024-2-25  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2009-07-15 08:45:06