Re: [MI400] Inactive time for jobs in DSPW condition

[Gene_Gaunt@xxxxxxxxxxxxxxx]

If you know the job's device description name, looks like this will get you
the 64-bit time stamp of the job's last I/O.

Of course, monitor for MCH3401 on the RSLVSP, and monitor for MCH6801 on
the SETSPPFP!

dcl spcptr ?Devd       auto;
dcl spcptr ?ReqBlock   bas(?Devd) pos(H"71");
dcl dd     LastIO      bas(?ReqBlock) pos(H"59") char(8);
dcl dd     T           auto char(96);

cpyblap    T(1:34), X"1001", X"00";
cpyblap    T(3:30), DisplayName, " ";
rslvsp     ?Devd, Mat(1:34), *, *;
setsppfp   ?Devd, ?Devd;
/* "LastIO" now has time stamp of last I/O */