API QMHSNDBM??

[JonnyRico]

Hi *All,

ich habe ein kleines Problem beim Senden einer Break-Message über die API "QMHSNDBM". Meine Prozedur sieht folgendermaßen aus:

PSNDBRKMSG        B                   export
DSNDBRKMSG        PI
D Messagetext                   50A   Value Varying
D MSGLEN          S             10I 0
D MessageType     S             10A   inz('*INFO')
D Reciptientname  S             10A   inz('QPADEVX')
D ReciptientLib   S             10A   inz('*LIBL')
D Reciptient      S             20A
D NumRecipts      S             10I 0 inz(1)
D Sender          S             20A
D Error           S             10i 0 inz(0)
C                   eval      MSGLEN=%Len(MessageText)
C                   eval      Reciptient = Reciptientname + ReciptientLib
C                   call      'QMHSNDBM'
C                   parm                    MessageText
C                   parm                    MSGLEN
C                   parm                    MessageType
C                   parm                    Reciptient
C                   parm                    NumRecipts
C                   parm                    Sender
C                   parm                    Error
PSNDBRKMSG        E 

Wenn ich aus meinem Programm dann die Prozedur aufrufe, kommt die Message auch an aber ich habe vor der Nachricht zwei komische Zeichen und hinten fehlen zwei. Hat jemand einen Tip für mich??? Vielen vielen Dank im Voraus.

Gruß