program-id. SeqToRel as "SeqToRel".

       environment division.
       configuration section.
       input-output section.
       file-control.
           select fisalle assign to "G:\Fichier COBOL\salle.rel"
                           organization is relative
                           access mode is dynamic
                           relative key is relkey
                           file status is fs-salle.
           select salleSeq assign to "G:\Fichier COBOL\salleSeq.seq"
                           organization is line sequential
                           file status is fs-salleSeq.
           select verifsalle assign "G:\Fichier COBOL\verifSalle.seq"
                             organization is line sequential
                             file status is fs-verif.
       data division.
       file section.
       FD fisalle.
       01 r-salle.
           02 tabCategSalle occurs 3.
               03 nbPlacesMax                      pic 999.
       FD salleSeq.
       01 r-seq.
           02 cle                                  pic 99.
           02 reste                                pic 9(9).
       FD verifSalle.
       01 r-verif.
           02 cleVerif                             pic 99.
           02 resteVerif                           pic 9(9).
       working-storage section.
       01 relkey                                   pic 99.
       01 fs-salle                                 pic xx.
           88 finTrt       value "10" thru "99".
       01 fs-salleSeq                              pic xx.
           88 fintrtSeq    value "10".
       01 fs-verif                                 pic xx.
           88 finverif      value "10".
       procedure division.
       main.
      *=====
           open output fisalle
               input salleSeq.
           read salleSeq end-read.
           perform until fintrtseq
               move cle to relkey
               write r-salle from reste
               read salleSeq end-read
           end-perform.
           close fisalle salleSeq.
      *Vérification
           open output verifSalle
                input fisalle.
           move cle to relkey.
           start fisalle key is >= relkey
               invalid key display "erreur"
               not invalid key read fisalle NEXT end-read
           end-start.
           perform until finTrt
               write r-verif from r-salle
               read fisalle NEXT end-read
           end-perform.
           stop run.

       end program SeqToRel.