teststem.rexx      29.11.2002 16:04:10


/* teststem: test how Netrexx internally processes Stems */
/* : we need to debug that for the 'value' and 'symbol'*/
/* : functions */
abc.='abc undefined' /* our stem, must be denoted with .!! */
call info 'abc is our stem, and all values except abc.7.8.9'
call info 'should have the the index as a value, except the last'
call info 'which is undefined!'
abc.1.2='1.2'
abc.2.3='2.3'
abc.4='4'
abc.5='5'
abc.5.6.7='5.6.7'
call info "abc.1.2='1.2' :="abc.1.2
call info "abc.2.3='2.3' :="abc.2.3
call info "abc.4='4' :="abc.4
call info "sbc.5=' :="abc.5
call info "abc.5.6.7='5.6.7' :="abc.5.6.7
call info "abc.7.8.9 :="abc.7.8.9
exit