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);