/*********************************************************************/
     /*  System Message mit QMHSNDPM senden                               */
     /*  Beschreibung siehe Referenz Message Handling APIs                */
     /*********************************************************************/
      /IF NOT DEFINED (QMHSNDPM_QRPGLEH)
      /DEFINE QMHSNDPM_QRPGLEH
     /*===================================================================*/
     D SendSysMsg      PR                  EXTPGM('QMHSNDPM')
     D  Message_ID                    7A   CONST
     D  Message_File                 20A   CONST
     D  Message_Data                 25    CONST
     D  Length                       10I 0 CONST
     D  Message_Type                 10A   CONST
     D  Message_Q                    10A   CONST
     D  Pgm_Stack                    10I 0 CONST
     D  Message_Key                        LIKE(QMHSNDPM_MSGKEY)
     D* Message Error
     D  Msg_Error                          LIKE(QMHSNDPM_MSGERR)
      *========================================================================*
      *   Out Parameter for QMHSNDPM Message Error                             *
      *========================================================================*
     DQMHSNDPM_MSGKEY  s              4A
     DQMHSNDPM_MSGERR  DS
     DPROVID                   1      4B 0
     DAVAIL                    5      8B 0
     DRTNMSG                   9     15
     DRSVR                    16     16
     DRTNDTA                  17     56
      /ENDIF