IDENTIFICATION DIVISION.
PROGRAM-ID. Exemple1.
**************************
*Programme de test
**************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
	DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TabJours.
   02 Jours OCCURS 7 PIC X(15).
01  DonneeLue PIC X(100).
01  nbr 	  PIC S99 BINARY VALUE 0.
01  pointeur  PIC S999 BINARY VALUE 1.
01  continuer PIC X.
01	longeur	  PIC 99 VALUE 0.

PROCEDURE DIVISION.
debut.
	ACCEPT DonneeLue.
	MOVE ALL SPACE TO TabJours.


	PERFORM
		WITH TEST AFTER UNTIL continuer = "N" OR nbr > 7
			UNSTRING DonneeLue DELIMITED BY "+" INTO Jours(nbr)
				WITH POINTER pointeur
				TALLYING IN nbr
				ON OVERFLOW	MOVE "O" TO continuer
				NOT ON OVERFLOW	MOVE "N" TO continuer
			END-UNSTRING
	END-PERFORM.
	IF nbr < 7
		THEN DISPLAY "erreur : il n'y a pas 7 jour dans la semaine".
	DISPLAY "Jours de la semaine ",TabJours
	STOP RUN.