Fichier intermédiaire de tri utilisé

3 étapes

ü      constitution du FIT

ü      tri di FIT

ü      restitution des articles vers une sortie

 

Déclarer un FIT

SELECT descr ASSIGN TO "fic".

 

Donner la structure d'un FIT

SD descr.

  01 structure.

 

SD : sort descriptor

 

Tri d'un fichier

SORT descr

ASCENDING nom-champ-du-descr

USING ficentrée

GIVING ficsortie

Rq : ficentrée et ficsortie peuvent être les mêmes

Attn : ficentrée et ficsortie ne doivent pas être ouverts

 

SORT descr

ASCENDING nom-champ-du-descr

INTPUT PROCEDURE nomprocéd-entrée

OUTPUT PROCEDURE nomprocéd-sortie

Þ utilise la procédure nomprocéd-sortie pour traiter GIVING

et nomprocéd-entrée pour USING

 

Ecrire une OUTPUT PROCEDURE

STOP RUN.

nom-section SECTION .

.

 

Lire un FIT

RETURN descr-de-FIT AT END

END-RETURN

 

Ecrire un FIT

RELEASE structure

 

Fusion

MERGE descr-FIT

  ASCENDING champ-du-FIT

  USING   descr-ficentrée   descr-ficout

  OUTPUT PROCEDURE nom-procéd-sortie