exit from a multiple loop DO
Posted: Wed Oct 06, 2021 1:04 pm
Hello, i would like to exit the first do if PLATEAU = A, or if PLATEAU = B
The first DO is in the line
DO J = 1 TO DS2.0
If i use the commande EXIT, i would exit from the DO just before but not the first DO (i don't know if i make me anderstood...)
"EXECIO * DISKR IN2 (FINIS STEM DS2."
DO J = 1 TO DS2.0
IND01 = INDEX(DS2.J,'SCF0350I')
IF IND01 <> 0 THEN
DO
IND02 = INDEX(DS2.J,'401-')
IF IND02 <> 0 THEN
DO
PLATEAU = A
END
ELSE
DO
PLATEAU = B
END
END
END
"EXECIO * DISKR IN (FINIS STEM DS."
DO I = 1 TO DS.0
Thank's for your help.
The first DO is in the line
DO J = 1 TO DS2.0
If i use the commande EXIT, i would exit from the DO just before but not the first DO (i don't know if i make me anderstood...)
"EXECIO * DISKR IN2 (FINIS STEM DS2."
DO J = 1 TO DS2.0
IND01 = INDEX(DS2.J,'SCF0350I')
IF IND01 <> 0 THEN
DO
IND02 = INDEX(DS2.J,'401-')
IF IND02 <> 0 THEN
DO
PLATEAU = A
END
ELSE
DO
PLATEAU = B
END
END
END
"EXECIO * DISKR IN (FINIS STEM DS."
DO I = 1 TO DS.0
Thank's for your help.