15 lines
292 B
Text
15 lines
292 B
Text
|
/* NetRexx */
|
||
|
|
options replace format comments java crossref symbols
|
||
|
|
|
||
|
|
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
|