Codes sources Cobol10 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

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.

Ci joint module pour tester la Clef No de Sécurité Sociale y compris pour la Corse
En Entrée le No SS sur 15 caractères
En Sortie La Cle theorique (calculée uniquement si le No est Numérique)
Un code erreur à 1 si la clef est incorrect ou le No SS est non numérique après transformation pour la Corse

Il s'agit d'un tri interne au COBOL détaillé.
Le fichier d'exemple associé au code est fourni.

Ceci est un exemple complet de compilation sur z/OS (MVS) d'un petit programme COBOL.
Le compilateur utilisé est Enterprise COBOL (IGYCRCTL).

Permet de tester un No de Sirete par l'algorithme de Luhn
Paramètres d'Entrée No de Sirete, et indicateur d'erreur
En sortie indicateur d'erreur = 1 si le Sirete n'est pas bon, à 0 si le Sirete est bon
Il marche sur tout type de compilateur cobol , aucune spécificité d'un quelconque constructeur étant employé

INSPECT REPLACING en Cobol ne permet de remplacer dans une chaîne de caractères une chaîne spécifique que par une chaîne de même longueur.
Ainsi vous pouvez donner l'ordre
INSPECT w-ZONE replacing "TOTO" by "ZOZO", mais vous avez une erreur si vous donner l'ordre
INSPECT w-ZONE replacing "TOTO" by "T"
le code qui suit donne une méthode pour le faire par une astuce et sans trop se fatiguer dans l'exemple donné on remplace " 000000;" par ";"
voila la portion de code qui le fait l'astuce vient de l'utilisation de deux séparateurs (qui ne doivent pas figurer dans le texte de base) dont la longueur totale représente avec la chaîne remplaçante un longueur égale à la chaîne à remplacer.


Le code a téléchar ... Voir la suite

Node.cobol est un pont entre Node.js et COBOL qui vous permettent d'exécuter du code Node.js depuis du code COBOL.
Vous pouvez par exemple exécuter un serveur Web à partir de code COBOL.

Node-cobol est un pont entre Node.js et COBOL qui vous permettent d'exécuter du code COBOL depuis du code Node.js.
Vous avez par exemple la possibilité de rendre disponible votre application COBOL directement sur le Web (un Web service, par exemple).