zOs/REXX/RMMBR

eins
wr100
wr2
zwei
wr5
drei
$<~wk.rexx(rmmbr)
$@for li $@{
    say strip($li)
    call adrTso "delete 'A540769.tmp.tst.lib("strip($li)")'", 8
    $}
*** run error: adrTso rc 12 for delete 'A540769.tmp.tst.lib($<~wk.rexx(rmmbr))'
$***out            20090430 15:51:11
$***out            20090430 15:49:24
$***out            20090430 15:48:30
$***out            20090430 15:47:47
$***out            20090430 15:47:27
$***out            20090430 15:47:09
$***out            20090430 15:45:18
eins
zwei
$***out            20090430 15:45:02
$***out            20090430 15:44:35
$***out            20090430 15:44:20
$***out            20090430 15:44:09
$***out