zOs/REXX/EXIEBCOP

$#@
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.texv
    l2 = A540769.tmp.text
    call dsnAlloc 'dd(sysin) new ::f80'
    i.1 = '  COPY O=SYSUT2,I=((SYSUT1,R))'
    I.2 = '  SELECT M=(EXIEBCOP)'
    call writeDD sysIn, i., 2
    call tsoClose sysIn
    call dsnAlloc 'dd(sysut1)' l1 $** '(wst)'
    call dsnAlloc 'dd(sysut2)' l2 $** '(wstebGe2)'
    call dsnAlloc 'dd(sysPrint) sysout(*)'
 $**call dsnCopy l1'(jc)', l2'(jcCo)'
 trace ?r
    call adrTso 'call *(IEBCOPY)'
    say 'rc='rc
    call tsoFree sysPrint sysut1 sysut2 sysin
$]
$*(
//SYSPRINT   DD SYSOUT=*
//IN1        DD DISP=SHR,DSN=A540769.WK.JCL
//OU1       DD DISP=SHR,DSN=A540769.TMP.TEXT333
  COPY O=OU1,I=((IN1,R))
  SELECT M=(CSM,JC)
$*)