zOs/TX/PER21CS3

$#@
$=pr=A540769.tmpUl.per21
call csmCopy 'RZ2/'$pr'.P00000.PUN'   ,   $pr'.tst1'