zOs/SQL/PRPLPK2

$#@
$<~WK.SQL(PRPLPKdd)
call sqlConnect dbof
call sqlQueryPrep 7 ,
  , "select ( select release from sysibm.sysPlan p" ,
    "where p.name = ?) plaR" ,
    ",(select k.release from sysibm.sysPackage k" ,
    "where k.name = ?" ,
    "order by k.pcTimestamp desc, k.timestamp desc" ,
    "fetch first 1 row only) pkgR from sysibm.sysDummy1"
$@for li $@[
    li = strip($li)
    gr = word(li, 6)
    pl = word(li, 7)
    pr = word(li, 8)
    if gr = 'DBOF' then $@[
        call sqlQueryArgs 7, pl, pr
        if \ sqlFetch(7, a) then
            call err 'no row'
        $$- li  m.a.plaR'/'m.a.pkgR'.'
        call sqlClose 7
        $]
    $]
$#out                                              20131118 22:34:36
1.10E6 6.52E3 9.44E5 9.37E6  8.52E02 DBOF     NZ0610   YCDSGET C/ .
1.10E6 6.52E3 9.31E5 1.60E8  1.93E03 DBOF     NZ0610   YOOAIE3 C/ .
1.10E6 6.52E3 9.23E5 4.15E7  3.22E02 DBOF     NZ0610   YCDX031 C/ .
5.91E5 5.61E3 9.18E5 1.12E7  4.49E02 DBOF     KC0680   YBER03E C/ .
1.10E6 6.52E3 8.91E5 1.62E6  1.91E02 DBOF     NZ0610   YCDQGET C/ .
1.10E6 6.52E3 8.91E5 6.47E6  3.53E02 DBOF     NZ0610   YCDOGEE C/ .