CL

[Fuerchau]

STRQMQRY gibt keinen SQLCODE zurück, daher ist er auch nicht abzufragen.
-100 gibt es nicht, du meinst wohl 100.
100 gibt es nur wenn beim letzten Fetch keine Daten mehr da sind.
Mit MONMSG kannst du nur SQL-Fehler abfangen, die das Ausführen überhaupt verhindern.

Die Ausgabedatei wird ohne SQL-Fehler immer erstellt, ob Daten vorhanden sind kannst du per RTVMBRD ... NBRCURRCD(&RCDS) feststellen.

[Pikachu]

Auf einen bestimmten Datensatz kann in CL mittels des Befehls OVRDBF unter Angabe des Parameters POSITION() positioniert werden.

DCL VAR(&FIELDS) TYPE(*CHAR) LEN(gesamte Länge)

OVRDBF FILE(Datei) POSITION(*KEY AnzahlSchlüsselfelder Format &FIELDS)
RCVF
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR)) 

Falls der Schlüssel allerdings Leerzeichen am Ende enthält, geht das nur über einen Umweg mittels CHGVAR und CALL QCMDEXC:

DCL VAR(&FIELDS) TYPE(*CHAR) LEN(gesamte Länge)
DCL VAR(&S) TYPE(*CHAR) LEN(1) VALUE('''')
DCL VAR(&CMD) TYPE(*CHAR) LEN(2000)
DCL VAR(&CMDLEN) TYPE(*DEC) LEN(15 5) VALUE(2000)

CHGVAR VAR(&CMD) VALUE('OVRDBF FILE(Datei) +
 POSITION(*KEY AnzahlSchlüsselfelder Format' *BCAT +
 &S *CAT &FIELDS *CAT &S *CAT ')') /* ALLE ZEICHEN */
CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
RCVF
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))