zOs/REXX.O08/CSMXUTIL

/* rexx  */                                                             00010000
parse arg a                                                             00020000
if a = '' then                                                          00030000
    a = wk                                                              00040000
address tso "exec 'CSM.DIV.P0.EXEC(CSRXUTIL)'",                         00050000
                 "'COPY WK.REXX(CSMXUTIL) TO RZ2/WK.REYYY'"             00060000
exit                                                                    00070000