В программировании мэйнфреймов управление наборами данных играет решающую роль в организации данных и доступе к ним. Каталог — это важнейший компонент, содержащий информацию о различных наборах данных. Возможность отображать запись каталога набора данных необходима для понимания его атрибутов и свойств. В этой статье мы рассмотрим несколько методов с примерами кода для выполнения этой задачи.

Метод 1: использование утилиты IDCAMS
IDCAMS — это мощная утилита в системах мэйнфреймов, которая предоставляет различные функции, включая отображение записей каталога. Вот пример использования IDCAMS для отображения записи каталога:

//DISPLAY EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
  LISTCAT ENTRIES('your.dataset.name')
/*
In the example above, replace 'your.dataset.name' with the actual name of the data set you want to display. The output will be printed in the SYSPRINT DD statement.
Method 2: Using the ISPF Option 3.4
ISPF (Interactive System Productivity Facility) is a popular interactive interface used in mainframe systems. Option 3.4 within ISPF allows users to display catalog entries interactively. Follow these steps:
1. Enter the ISPF primary option menu.
2. Type '3.4' and press Enter.
3. Enter the name of the data set you want to display and press Enter.
4. The catalog entry details of the specified data set will be displayed on the screen.
Method 3: Using REXX Programming
REXX (REstructured eXtended eXecutor) is a scripting language widely used in mainframe environments. Here's an example of a REXX program to display a catalog entry:

/REXX/
ADDRESS ISPEXEC “VGET (ZCMD) PROFILE”
ADDRESS ISPEXEC “SELECT PGM(ISPF) PARM(‘3.4’)”
ADDRESS ISPEXEC “SETMSG MSG(ISRZ000)”
“ПРОФИЛЬ ISPEXEC VGET (ZCMD)”
“ПАНЕЛЬ ДИСПЛЕЯ ISPEXEC(ISRZ000)”

Executing the above REXX program will bring up the ISPF 3.4 screen, where you can enter the data set name to display the catalog entry.
Method 4: Using the LISTDSI API in COBOL
If you are working with COBOL, you can use the LISTDSI API to retrieve detailed information about a data set, including the catalog entry. Here's an example:

ОТДЕЛЕНИЕ ИДЕНТИФИКАЦИИ.
ПРОГРАММА-ИД. ДИСПЛЕЙ-КАТАЛОГ-ВХОД.
РАЗДЕЛЕНИЕ ДАННЫХ.
РАБОЧИЙ РАЗДЕЛ ХРАНЕНИЯ.
01 ИНФОРМАЦИЯ НАБОРА ДАННЫХ.
05 DSNAME PIC X(44) ЗНАЧЕНИЕ ‘your.dataset.name’.
05 DSTYPE PIC X(1).
05 DSCAT PIC X(44).
05 DSATTR PIC X(44).

РАЗДЕЛЕНИЕ ПРОЦЕДУРЫ.
MAIN-LOGIC.
ВЫЗОВ ‘IGGCSI00’ С ИСПОЛЬЗОВАНИЕМ DATASET-INFO.
DISPLAY “Информация о записи каталога:”
DISPLAY “Имя набора данных: ” DSNAME
DISPLAY “Тип набора данных: ” DSTYPE
DISPLAY “Имя каталога: ” DSCAT
DISPLAY “Атрибуты: ” DSATTR.

STOP RUN.

Replace 'your.dataset.name' in the above COBOL program with the actual data set name to display the corresponding catalog entry.


In this article, we explored several methods to display the catalog entry of a data set in mainframe systems. These methods include using utilities like IDCAMS, interactive options like ISPF 3.4, scripting languages like REXX, and programming languages like COBOL. Leveraging these techniques, mainframe programmers can easily access and analyze the catalog information of data sets, enabling efficient data set management.