COBOL - Flat to Indexed : transformation d'un fichier séquentiel en fichier séquentiel indexé

Présentation
Transformation d'un fichier séquentiel en fichier séquentiel indexé dédié au compilateur COBOL associé.

Deux sources sont mises à disposition :
- L'une avec seulement la transformation "normal" vers "indexé"
- L'autre avec un tri interne COBOL

Ce code est très utile sous Windows ou Linux pour obtenir des formats de fichiers nativement disponibles sur z/OS ou System i.
Nos ressources disponibles
Pour que l'indexation soit réellement efficace il est conseillé de trier, mais sur certains systèmes des programmes plus optimisés sont disponibles (DFSORT sur z/OS par exemple).
L'indexation d'un fichier peut "aussi" être naturelle via le format d'enregistrement : toujours sur z/OS, des VSAM de type KSDS (Key Sequenced DataSet) permettent d'indexer à l'écriture et COBOL sera en mesure d'utiliser ces index.

L'intérêt de ce programme se situe surtout dans le fait que les systèmes d'exploitations moins spécialisés ne proposent pas ces options, et qu'il devient donc nécessaire de laisser COBOL (et surtout son compilateur) générer un fichier indexé avec le format adapté à celui-ci.

Le fichier utilisé dans le code est fourni en exemple.

Attention aux niveaux des variables en WORKING-STORAGE SECTION !
Mes 2 compilateurs (OpenCOBOL 1.1 et TinyCOBOL) obligent à utiliser des niveaux 01, 66 ou 77 pour les structures ou variables simples.
Si vous aviez l'habitude d'utiliser d'autres niveaux avec d'autres compilateurs : n'hésitez pas à modifier mon code.

Merci à Hédhili Jaïdane, el_slapper, Pico----- et Luc Orient pour leurs conseils.
Détails
Catégories : Codes sources Cobol
Voir tous les téléchargements de l'auteur
Licence : BSD
Date de mise en ligne : 19 mars 2014




Avatar de escartefigue escartefigue - Expert éminent https://www.developpez.com
le 23/06/2015 à 16:52
Avatar de Luc Orient Luc Orient - Membre émérite https://www.developpez.com
le 28/06/2015 à 17:25
Avatar de escartefigue escartefigue - Expert éminent https://www.developpez.com
le 29/06/2015 à 8:56
Avatar de Luc Orient Luc Orient - Membre émérite https://www.developpez.com
le 29/06/2015 à 11:32
Avatar de escartefigue escartefigue - Expert éminent https://www.developpez.com
le 29/06/2015 à 13:59
Avatar de Luc Orient Luc Orient - Membre émérite https://www.developpez.com
le 29/06/2015 à 17:31
Avatar de escartefigue escartefigue - Expert éminent https://www.developpez.com
le 30/06/2015 à 9:24
Avatar de Darkzinus Darkzinus - Expert éminent https://www.developpez.com
le 30/06/2015 à 13:49
Avatar de escartefigue escartefigue - Expert éminent https://www.developpez.com
le 30/06/2015 à 19:25
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.
Contacter le responsable de la rubrique Accueil