Hallo,

ich habe zwei Fragen an Euch:

1. Wenn ich ein CLRDTAQ aus führe und einzelne Einträge löschen will, wie muss ich da vorgehen. Muss der CLR in einer Schleife so oft ausgeführt werden, bis zum Ende. Wie wird das Ende dann festgestellt, das keine passenden Einträge mehr vorhanden sind?



2. Ich habe das mal für mich in einem kleinen Test-Programm vorbereitet. Leider bekomme ich bei der Umwandlung immer diese beiden Fehler.

*RNF5410 30 1 Der Prototyp für den Aufruf ist nicht definiert.
*RNF7030 30 1 Der Name oder die Bezugszahl/der Anzeiger ist nicht
definiert.

Ich denke es hängt an dem Parameter CERROR (Error wurde auch bei RCVDTaq schon mal definiert)


SOURCECODE:
D RCVDTAQ PR EXTPGM('QRCVDTAQ')
D DATAQUEUENAME 10A CONST
D DATAQUEUELIB 10A CONST
D DATALENGTH 5P 0
D DABABUFFER 32767A OPTIONS(*VARSIZE)
D WAITTIME 5P 0 CONST
D KEYORDER 2A CONST OPTIONS(*NOPASS)
D KEYLENGTH 3P 0 CONST OPTIONS(*NOPASS)
D KEYBUFFER 256A OPTIONS(*NOPASS : *VARSIZE)
D SNDLENGTH 3P 0 CONST OPTIONS(*NOPASS)
D SNDBUFFER 44A OPTIONS(*NOPASS)
D REMOVEMSG 10A CONST OPTIONS(*NOPASS : *OMIT)
D RCVSIZE 5P 0 CONST OPTIONS(*NOPASS : *OMIT)
D ERROR 32767A OPTIONS(*NOPASS : *VARSIZE)
D
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 CERROR 32767A CONST OPTIONS(*NOPASS : *VARSIZE)


C EVAL KEY = E_JOBNR + E_JOBUSR
C CALLP CLRDTAQ('DYQ01' : '*LIBL' : 'EQ' : 17: KEY : CERROR)




Danke für Euere Hilfe!!!!