Display IDMS programs by language

Products

• IDMS

Issue/Introduction

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.

Environment

Release : All supported releases.

Resolution

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

Additional Information

Dictionary Structure Reference