CL Programmierung Spalten erkennen...

[Pikachu]

Oder vielleicht so?

             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