*
      * Creation du fichier relatif a partir du fichier sequentiel.
      *
	ENVIRONMENT DIVISION.

		SELECT fic-seq ORGANIZATION IS LINE SEQUENTIAL
			ASSIGN TO "ds2.txt".

		SELECT fic-rel ORGANIZATION IS RELATIVE
			ACCESS RANDOM
			RELATIVE KEY cle
			ASSIGN TO "ds2.rel".

	DATA DIVISION.
	FILE SECTION.
		FD fic-seq DATA RECORD rec-seq.
		01 rec-seq.
			10 code-cli	PIC 9(7).
			10 reste	PIC X(77).

		FD fic-rel DATA RECORD rec-rel.
		01 rec-rel PIC X(77).
	
	working-storage section.
		77 stat PIC 9 VALUE 0.
			88 eof VALUE 1.

		77 cle PIC 9(7).
		
	procedure division.
		OPEN INPUT fic-seq OUTPUT fic-rel.
		READ fic-seq
			AT END DISPLAY "Fichier vide"
			NOT AT END PERFORM lecture until EOF.
		CLOSE fic-seq fic-rel.
		STOP RUN.

	lecture.
		MOVE code-cli TO cle.
		MOVE reste TO rec-rel.
		WRITE rec-rel.
		READ fic-seq AT END MOVE 1 TO stat.