zOs/REXX/MARECRE

$** copy ds to pds -----------------------------------------------------
out = 'DSN.MARECRE.PTAN.JOBOUT'
call csiOpen c, 'DSN.MAREC.PTA.TEST*.**'
do while csiNext(c, o)
    k = substr(m.o, 19, 12)
    mbr = 'L'substr(k, 3, 1)substr(k, 7, 2)substr(k, 11, 2)
    say mbr k m.o
    call readDsn m.o, i.
    call writeDsn out'('mbr') ::v', i., , 1
    end
/* call csiClose c */
$#end
$** rename members------------------------------------------------------
lib = 'DSN.MARECRE.DBZF.JOBOUT'
ll = lmmBegin(lib)
libIn = dsnSetMbr(mbrIn)
do ix=1
    mbr = lmmNext(ll)
    if mbr = '' then
        leave
    pIn = libIn'('mbr')'
    if abbrev(mbr, 'ALL') then
        iterate
    call adrTso "rename '"lib"("mbr")' (Z"mbr")"
    end
call lmmEnd ll