zOs/TX/WK600JOU

$*(   copy output files to pds
$*)
$=out=dsn.marecre.jobout
$=in=DSN.MAREC.DBOF.D091217.T103831.JOB018.JOBOUT
$;
call lmm $in
$|
$@for mbr $@[
    if \ abbrev($mbr, 'YMR') then
        iterate
    mbOu = 'MH'substr($mbr, 3, 2)substr($mbr, 7, 2)
    call readDsn $in'('$mbr')', i.
    call writeDsn $out'('mbOu') ::v', i., , 1
    $]
$#end
    mbr = strip($mbr)
    if mbr = '' then
        leave
    say mbr
    end
ca
    $=jy=-right($jx, 3, 0)
    $=dsn=DSN.MAREC.PTA.TEST09.YMRCO$jy.JOB.OUTPUT
    call readDsn $dsn, i.
    call writeDsn $out'(mbrc'$jy') ::v', i., , 1
    $]
$#out                                              20091224 17:03:07
$#out                                              20091224 17:01:26
$#out                                              20091224 17:02:43
$#out                                              20091224 17:01:05
$#out                                              20091224 17:00:24
$#out                                              20091224 16:56:38
$#out
$#out                                              20091224 16:56:15