Codes sources Cobol

Retrouvez ici tous les meilleurs téléchargements Codes sources Cobol
Ajouter un nouvel élément

    JCL/COBOL - Exemple de Compilation COBOL sous z/OS (Enterprise COBOL)

    Licence : BSD - 19/03/2014 - Téléchargé 3 x
    Ceci est un exemple complet de compilation sur z/OS (MVS) d'un petit programme COBOL.
    Le compilateur utilisé est Enterprise COBOL (IGYCRCTL).

    COBOL - Tri Interne

    Licence : BSD - 19/03/2014 - Téléchargé 2 x
    Il s'agit d'un tri interne au COBOL détaillé.
    Le fichier d'exemple associé au code est fourni.

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

    Licence : BSD - 19/03/2014 - Téléchargé 1 x
    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.

    Remplacer chaine par une chaine de longueur différente

    Licence : Autre - 06/04/2016 - Téléchargé x
    INSPECT REPLACING en Cobol ne permet de remplacer dans une chaine de caractères une chaine spécifique que par une chaine de meme 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 chaine remplacante un longueur égale à la chaine à remplacer.


    mov ... Voir la suite

    Tester No de Sirete

    Licence : Autre - 14/08/2015 - Téléchargé x
    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é

    Tester No De Sécurité Sociale

    Éditeur : marcob +
    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

    Node.cobol

    Éditeur : Ionică Bizău +
    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

    Éditeur : Ionică Bizău +
    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).

8 éléments

Contacter le responsable de la rubrique Accueil