Hi
Wenn Du schon ein DSC-Datum verwendetst, warum versuchst Du es nicht mal mit einem normalen SETLL *loval/READ.

Stellt sich die Frage:
Art der Suche,
- nach Artikel/Datum
- nach Datum/Artikel

ggfls würde ich zwei logische Sichten generieren.

Kleiner Tipp zu den GOTO

LAFEHL IFEQ 'J'
*IN50 IFEQ *OFF
GOTO #IC012
ENDIF
ENDIF

Würde auch so gehen
LAFEHL IFEQ 'J'
*IN50 CABEQ *OFF #IC012
ENDIF

Edit: Tippfehler