2013-04-10 22:43:41 -07:00
|
|
|
/* NetRexx */
|
2015-11-18 06:14:39 +00:00
|
|
|
options replace format comments java crossref symbols
|
2013-04-10 22:43:41 -07:00
|
|
|
|
|
|
|
|
surname = 'Unknown' -- default value
|
|
|
|
|
surname['Fred'] = 'Bloggs'
|
|
|
|
|
surname['Davy'] = 'Jones'
|
|
|
|
|
|
|
|
|
|
try = 'Fred'
|
|
|
|
|
say surname[try] surname['Bert']
|
|
|
|
|
|
|
|
|
|
-- extract the keys
|
|
|
|
|
loop fn over surname
|
|
|
|
|
say fn.right(10) ':' surname[fn]
|
|
|
|
|
end fn
|
