This article describes a method for reporting on programs defined to SYSGEN by their language and the number of the system to which they are defined.
Release : All supported releases.
OLQ against the SYSTEM dictionary can be used.
The following sample OLQBATCH syntax will report on programs defined to sysgen by system number and language.
//SYSIPT DD *
SET USER user-id
SET ACCESS OLQ
SET DICTNAME SYSDIRL
SET DBNAME SYSTEM
SIGNON SS IDMSNWKA SCHEMA IDMSNTWK ( 1 )
SELECT PROG-NAME-049, PROG-FLAG1-049, SYS-VER-041 -
FROM PROGLST-049, SYS-041 -
WHERE SYS-PROGLST -
AND SYS-VER-041 = system-number -
AND PROG-FLAG1-049 = B'bbbbbbbb'
DISPLAY
Replace the items in red with the requested values.
For the respective languages, use these values for bbbbbbbb.
10000000 Cobol
01000000 Assembler
00100000 PL/1
00010000 ADS dialog
00000001 ADS application