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;
/*********************************************************************/