Suppression messages de debug

This commit is contained in:
rick 2021-03-17 22:24:31 +01:00
parent d9f9eddca6
commit ed7231d96a
Signed by: Rick
GPG key ID: 2B593F087240EE99

View file

@ -32,7 +32,7 @@
BY CONTENT MY-STR,
BY REFERENCE NB-NICE-PREM
BY REFERENCE NB-NICE-DEUX
* On passe par référence NB-NICE pour lincrémenter
* On passe par référence NB-NICE pour les incrémenter
END-CALL
END-READ
END-PERFORM.
@ -112,34 +112,24 @@
parse.
MOVE 0 TO NB-VOY.
MOVE 'N' TO DOUBLE.
d DISPLAY STR.
d DISPLAY "=================".
PERFORM VARYING I FROM 1 BY 1 UNTIL END-P
MOVE STR(I:1) TO CHAR
d DISPLAY "ACT. CHAR : " CHAR
d DISPLAY "ACT. PRED : " PRED
d DISPLAY "I : " I
IF VOY
THEN ADD 1 TO NB-VOY END-ADD
IF VOY THEN
ADD 1 TO NB-VOY END-ADD
END-IF
IF I >= 2
THEN
STRING PRED CHAR INTO TMP END-STRING
d DISPLAY "TMP STR : " TMP
IF BAD
THEN
IF BAD THEN
EXIT PERFORM
END-IF
IF PRED = CHAR
THEN
IF PRED = CHAR THEN
MOVE 'Y' TO DOUBLE
END-IF
d DISPLAY "DOUBLE : " DOUBLE
END-IF
MOVE CHAR TO PRED
END-PERFORM.
IF NOT BAD AND NB-VOY >= 3 AND DOUBLE = 'Y'
THEN
IF NOT BAD AND NB-VOY >= 3 AND DOUBLE = 'Y' THEN
ADD 1 TO NB END-ADD
END-IF.
EXIT PROGRAM.
@ -215,7 +205,6 @@
ADD 1 TO NB END-ADD
END-IF.
EXIT PROGRAM.
END PROGRAM parse-deux.
END PROGRAM hub.