Browse check output from the CKH panel
Use ISFEXEC to access the CK panel, then, for a check with owner IBMSDSF, use ISFACT to display the history. From the history, for any instance with a non-zero result (an exception), use ISFACT to browse the check output.
/* REXX */
isfcklim = 999 /* set the limit of checks returned to 999 */
rc=isfcalls("on")
Address SDSF "ISFEXEC CK"
do ix=1 to name.0 /* Loop for all checks */
if pos("IBMSDSF",owner.ix) > 0 then /* If desired check */
do
Address SDSF "ISFACT CK PARM(NP L) TOKEN('"token.ix"') (PREFIX",
" CK_)"
do jx=1 to ck_name.0
if ck_result.jx <> 0 then
do
Address SDSF "ISFACT CK PARM(NP S) TOKEN('"ck_token.jx"')",
"(PREFIX CKH_)"
say "Now processing check" ck_name.jx " Run " ck_count.jx
do mx = 1 to isfline.0
say isfline.mx
end /* done with history text */
end
end
end
end
rc=isfcalls("off")