zOs/REXX/CSMCOPY

$#@
$<#/dsn/
   A540769.TMPUL.SV03A1P.A033A.PUN
   A540769.TMPUL.SV03A1P.A033A.UNL
$/dsn/ $@for v $@[
    call csmCopy 'RZ2/'strip($v), 'RR2/'strip($v)
    $]
$#out                                              20120120 16:59:40
$#out                                              20120117 16:06:03