 |
 |
 |
Display Active Program
Warning: The code has not been fully tested and is supplied 'as is'.This sample code illustrates the use of an MI program as a driver for a SPECIAL 'file'.
The MI program loops through all jobs of the WCBT (Work Control Block Table?) and examines Auto Start, Batch and Interactive jobs in search for a named program in the invocation stack.
RDSPACTP is the program that displays all jobs with the program in their invocation stack
The CL Program CDSPACTPGM is the CPP of the command.
Compile and enjoy. I'm sorry that there are no comments, but except for the MI program things should be fairly straightforward.