zOs/SQL/CATPLARB

$=dbSys = dc0g
$;
$<~tmp.texv(rebind)
$@for ii $@[
    parse value $ii with pl dt rb
    if pl <> 'A005DUM' then
        iterate
    rb = strip(rb)
    say plan pl date dt rebind rb
    rx = sqlDsn(st, $dbSys, rb, '*')
    if rx <> -99 then do /* output anzeigen */
        say 'rc='rx 'for rebind' pl
        do sx=1 to m.st.0
            say '.' m.st.sx
            end
        end
    $]
$#out                                              20130524 21:52:40
$#out                                              20130524 21:51:13
$#out                                              20130524 21:49:31