zOs/REXX/EDITDIA

$#@
$=lib =- dsn2jcl('~tmp.lctl')
$=oLb =- dsn2jcl('~tmp.lct2')
call mbrList mm, $lib
$do mx=1 to m.mm.0 $@[
    mbr = m.mm.mx
    say mbr
    call readDsn $lib'('mbr')', i.
    ox=0
    dia = 0
    $do ix=1 to i.0 $@[
        ox = ox + 1
        if pos('EXEC SQL', space(i.ix, 1)) > 0 then $@[
            o.ox = 'DIAGNOSE ALLDUMPS'
            ox = ox + 1
            dia = 1
            $]
        if dia &(word(i.ix, 1) = 'LISTDEF' ,
           | pos('COPY LIST', space(i.ix, 1)) > 0) then $@[
            o.ox = 'DIAGNOSE END'
            ox = ox + 1
            dia = 0
            $]
        o.ox = i.ix
        $]
    if dia then $@[
        ox = ox + 1
        o.ox = 'DIAGNOSE END'
        $]
    call writeDsn $oLb'('mbr') ::f', o., ox
    $]
$#out                                              20141031 12:39:45