*
      *	Exploitation du fichier relatif.
      *
	ENVIRONMENT DIVISION.
		SELECT fic-rel ORGANIZATION IS RELATIVE
			ACCESS DYNAMIC
			RELATIVE KEY cle
			ASSIGN TO "ds2.rel".

	DATA DIVISION.
		FD fic-rel DATA RECORD rec-rel.

      *	On ne fait pas de traitement sur le code postal, donc il n'y a
      * aucune raison pour qu'il soit numerique.

		01 rec-rel.
			10 raison-sociale	PIC X(24).
			10 adresse		PIC X(24).
			10 code-postal		PIC X(5).
			10 ville		PIC X(24).
	
	WORKING-STORAGE SECTION.
		77 cle PIC 9(7) VALUE 1.
			88 fin VALUE 0.

	PROCEDURE DIVISION.
		OPEN INPUT fic-rel.
		PERFORM do-it UNTIL fin.
		CLOSE fic-rel.
		STOP RUN.

	do-it.
		DISPLAY "Numero client ?".
		ACCEPT cle.
		IF cle > 0
			READ fic-rel
			DISPLAY raison-sociale " "
				adresse " "
				code-postal " "
				ville " ".