CLRDTAQ

[sirdidi]

Hallo,

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

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 :D:D:D - LÖSCHEN - :rolleyes:
Danke nochmal an alle, für ihre Mühen etwas dazu zu schreiben!