zOs/REXX/EXIEBGEN

$#@
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.texw
    l2 = A540769.tmp.text
    call dsnAlloc 'dd(sysut1)' l1'(jc)'
    call dsnAlloc 'dd(sysut2)' l2'(jcIebGen)'
    call dsnAlloc 'dd(sysPrint) sysout(*)'
 $**call dsnCopy l1'(jc)', l2'(jcCo)'
 trace ?r
    ADDRESS LINKPGM ICEGENER
    say 'rc='rc
    call tsoFree sysPrint sysut1 sysut2
$]