PSB

Сегодня я предлагаю поговорить о ситуациях, когда требуется отправить IMS сообщение MPP процессу из программы, написанной на PL/I.

Работа с IMS очередями (и, в принципе, с IMS) осуществляется при помощи внешней процедуры PLITDLI:

DCL PLITDLI         EXTERNAL ENTRY;

Для отсылки сообщения нам потребуется выполнить три команды:
1. Установка альтернативного PCB на требуемую IMS очередь.
2. Запись сообщения в IMS очередь.
3. Отсылка сигнала о том, что сообщение готово к отсылке (так называемый purge).

Процедура PLITDLI вызывается с переменным числом параметров. В качестве первого параметра Вам необходимо передать количество остальных параметров.

Для передачи этого количество слудет использовать статичные целочисленные переменные длиной 4 байта:

DCL TWO             FIXED BIN(31) STATIC INIT(2);
DCL THREE           FIXED BIN(31) STATIC INIT(3);
DCL FOUR            FIXED BIN(31) STATIC INIT(4);