Hallo zusammen,

ich hinke hoffnungslos hinterher. ;-)

Ja, auch beim Compile klappts nicht:

FOLGENR *...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
100- PGM
200-
300- DCL VAR(&STRING) TYPE(*CHAR) LEN(8) VALUE(' +
400 (C ')
600-
900- IF COND(%SCAN('(C ' &STRING) *GT 0) THEN(DO)
* CPD0056 30 Integrierte Funktion %SCAN ungültig.
901- WRKSPLF
1100- ENDDO
1500-
1600- END: ENDPGM