zOs/SQL/PKGCLEAJ

$#@
m.dsn.1 = PCL.U0000.P0.RZXBAK.PERM.@008.DBR     $** backup
m.dsn.2 = PCL.U0000.E0.RZXAKT.PROM.@008.DBR     $** Aktiv Promote
m.dsn.3 = PCL.U0000.P0.RZXAKT.PERM.@008.DBR     $** Aktiv Prod
m.dsn.0 = 3
do ix=1 to m.dsn.0
    call mbrLIst 'MBR.'ix, m.dsn.ix
    m.cIx.ix = 1
    m.cur.ix = m.mbr.ix.1
    end
do forever
    do gx=1 to m.dsn.0 while m.cIx.gx > m.mbr.gx.0
        end
    if gx > m.dsn.0 then
        leave
    eq = gx
    do ix=gx+1 to m.dsn.0
        if m.cIx.ix > m.mbr.ix.0 then
            iterate
        if m.cur.gx == m.cur.ix then do
            eq = eq ix
            end
        else if m.cur.gx >> m.cur.ix then do
            gx = ix
            eq = ix
            end
        end
    say m.cur.gx eq
    do wx=1 to words(eq)
        ix = word(eq, wx)
        iy = m.cIx.ix + 1
        m.cIx.ix = iY
        if iY <= m.mbr.ix & m.mbr.ix.iY <<= m.cur.ix then
            call err m.mbr.ix.iY '<<=' m.cur.ix 'in' m.dsn.ix
        m.cur.ix = m.mbr.ix.iY
        end
    end
$#out                                              20161121 11:58:31
$#out                                              20161121 11:37:43
$#out