Hallo,

sorry, wenn ich nochmal wegen dem CLRDTAQ nerve. Aber ich bekomme es einfach nicht "gebacken".

Wo liegt mein Fehler liegt? Wie muss ich es richtig schreiben?
(Umwandlung schlägt fehl mit flg. Fehlermeldung:
RNF5407 20 1 Mehr Parameter im Prototypaufruf übergeben als zulässig.




Code:
     D CLRDTAQ         PR                  EXTPGM('QCLRDTAQ')
     D  DATAQUEUENAME                10A   CONST
     D  DATAQUEUELIB                 10A   CONST
     D  KEYORDER                      2A   CONST OPTIONS(*NOPASS)
     D  KEYLENGTH                     3P 0 CONST OPTIONS(*NOPASS)
     D  KEYDATA                   32767A   CONST OPTIONS(*NOPASS)
     D  ParErrDS1      DS                  LikeDS(RefDSAPIErr) inz(*LikeDS)
     D
     D* ParErrDS1                          LikeDS(RefDSAPIErr) Options(*NoPass)
     D
     D RefDSAPIErr     DS                  Qualified
     D   ByteProv                    10I 0 inz(%size(RefDSAPIErr))
     D   ByteAvail                   10I 0
     D   MsgId                        7A
     D   Reserved                     1
     D   ExceptData               32767

Code:
     C     SR999         BEGSR
     C
     C                   EVAL      KEY = E_JOBNR + E_JOBUSR
     C                   CALLP     CLRDTAQ('DYQ01' : '*LIBL' : 'EQ' : 17 :
     C                                      KEY : PARERRDS1)
     C
     C                   TIME                    R120T2           12 0
     C
     C                   ENDSR
Danke!!!

Mit freundlichen Grüßen
Ralph