zOs/REXX/EXIDCAMS

$#@
if 0 then $@[
    call dsnDel 'A540769.tmp.pli', 'eins vier drei'
$] else if 0 then $@[ $** delete mit file( **********
   f =  dsnAlloc('A540769.tmp.pli dd(del)')
   call adrTso "delete 'A540769.tmp.pli(zwei)' file(del)"
   call tsoFree del
$] else if 1 then $@[  $** repro ******************

    l1 = A540769.wk.jcl
    l2 = A540769.tmp.text
    l2 = A540769.tmp.text333
 $**call dsnCopy l1'(jc)', l2'(jcCo)'
 trace ?r
    address tso "repro ids('"l1"(jc)') ods('"l2"(jcRepro)')"
    say 'rc='rc
$]