CLRDTAQ

[Logic IT-Services]

Hi,

Versuch mal den Error-Code so zu definieren

DCL VAR(&CERROR) TYPE(*CHAR) LEN(16)

[sirdidi]

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.

     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

     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

[Fuerchau]

Die Definition "ParErrDS1 DS" gehört nicht mehr zur PR-Deklaration sondern ist eine eigene DS.
Du musst diese ohne "DS" wie KEYDATA definieren.

[sirdidi]

Ich danke für den Tipp!! Jetzt tut das Teil endlich was es soll - LÖSCHEN -
Danke nochmal an alle, für ihre Mühen etwas dazu zu schreiben!