zOs/REXX/WSTTT

call mbrList q, 'rzz/~wk.rexxNev'
call dsnCopy '~tmp.tex12', '~tmp.text', e12
call dsnCopy '~wk.rexx', 'rzz/~tmp.rexx', wst wsh
call dsnCopy '~wk.rexx', '~tmp.tex12', wst wsh
$*(             mp.
call mbrList q, 'rzz/~tmp.jii'
say 'recF' m.q.RECFM 'lRecL' m.q.LRECL m.q.BLKSIZE 'org' m.q.DSORG ,
    'hasM' m.q.hasMembers 'cnt' m.q.0
call mbrList r, 'rzz/~wk.clist'
say 'recF' m.r.RECFM 'lRecL' m.r.LRECL m.r.BLKSIZE 'org' m.r.DSORG ,
    'hasM' m.r.hasMembers 'cnt' m.r.0
call mbrList q, '~tmp.iii'
say 'recF' m.q.RECFM 'lRecL' m.q.LRECL m.q.BLKSIZE 'org' m.q.DSORG ,
    'hasM' m.q.hasMembers 'cnt' m.q.0
call mbrList r, '~wk.clist'
say 'recF' m.r.RECFM 'lRecL' m.r.LRECL m.r.BLKSIZE 'org' m.r.DSORG ,
    'hasM' m.r.hasMembers 'cnt' m.r.0
$*)