zOs/REXX/WK

/* rexx        allocate A540769.wk libraries
               copy to wk.clist, then tso ex wk works everywhere ----*/
parse arg a
if a = '' then
    a = wk
address tso "exec 'A540769.wk.rexx(alib)' '"a"'"
exit