Oder vielleicht so?
PHP-Code:
PGM
DCL VAR(&L) TYPE(*DEC) LEN(5)
DCL VAR(&B) TYPE(*DEC) LEN(5) VALUE(1)
DCL VAR(&T) TYPE(*DEC) LEN(5) VALUE(0)
DCL VAR(&MAX) TYPE(*DEC) LEN(5) VALUE(100)
DCL VAR(&VAR1) TYPE(*CHAR) LEN(100)
DCL VAR(&VAR2) TYPE(*CHAR) LEN(100)
DCL VAR(&VAR3) TYPE(*CHAR) LEN(100)
DCL VAR(&VAR4) TYPE(*CHAR) LEN(100)
DCL VAR(&S) TYPE(*CHAR) LEN(100)
CHGVAR VAR(&S) VALUE('123456 7890 1234 567')
SUCHEN: CHGVAR VAR(&T) VALUE(&T + 1)
IF COND(&T *GT &MAX) THEN(GOTO CMDLBL(WEITER))
IF COND(%SST(&S &T 1) *NE ' ') THEN(GOTO CMDLBL(SUCHEN))
WEITER: CHGVAR VAR(&L) VALUE(&T - &B)
IF COND(&L *GT 0) THEN(DO)
CHGVAR VAR(&VAR1) VALUE(&VAR2)
CHGVAR VAR(&VAR2) VALUE(&VAR3)
CHGVAR VAR(&VAR3) VALUE(&VAR4)
CHGVAR VAR(&VAR4) VALUE(%SST(&S &B &L))
ENDDO
CHGVAR VAR(&B) VALUE(&T + 1)
IF COND(&B *LE &MAX) THEN(GOTO CMDLBL(SUCHEN))
ENDPGM: ENDPGM
Bookmarks