MQ

Отсылка файла в MQ очередь при помощи PL/I

Давайте создадим небольшую программу, в котором отправим содержимое текстового файла в MQ очередь. Текст программы (немного откомментировал, если будут вопросы - пишите в комментариях): /*********************************************************************/ /* MYMQSND: LOAD MQ QUEUE FROM FILE */ /*********************************************************************/ MYMQSND: PROC OPTIONS(MAIN) REORDER; /*********************************************************************/ /* BUILTIN функции */ /*********************************************************************/ DCL TRIM BUILTIN; DCL LENGTH BUILTIN; DCL ADDR BUILTIN; DCL ONCHAR BUILTIN; DCL ONCODE BUILTIN; DCL ONLOC BUILTIN; DCL ONSOURCE BUILTIN; /*********************************************************************/