CL

[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))