Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Invité de passage
    Homme Profil pro
    Développeur COBOL
    Inscrit en
    novembre 2012
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Développeur COBOL
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : novembre 2012
    Messages : 2
    Points : 0
    Points
    0

    Par défaut PB COBOL avec microfocus Object COBOL

    Bonjour,

    J'ai l'EDI Micro Focus Enterprise Developer Team Edition 2.1 .

    J'ai ecrit le pg COBOL suivant :

    program-id. Program1.

    working-storage section.
    77 nom-c PIC X(30).

    procedure division.
    DISPLAY "TEST"
    ACCEPT nom-c
    DISPLAY "Bonjour " nom-c
    goback.

    end program Program1.


    Qd je lance l'execution avec DEBUG -> START WITHOUT DEBUGGING
    , dans la fenêtre d'execution le pg attends la valeur de la variable nom-c.

    Mais la première instruction DISPLAY "TEST" ne s'execute pas.

    Des solutions ?

    Cdlt.

  2. #2
    Membre du Club
    Homme Profil pro Jean
    Développeur Grands Systèmes IBM
    Inscrit en
    août 2008
    Messages
    41
    Détails du profil
    Informations personnelles :
    Nom : Homme Jean
    Âge : 61
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur Grands Systèmes IBM

    Informations forums :
    Inscription : août 2008
    Messages : 41
    Points : 48
    Points
    48

    Par défaut

    Bonsoir,
    Je n'ai pas réussi à reproduire ton anomalie.
    Bien que le COBOL de FicroMocus soit très permissif il est à mon avis préférable de respecter les colonnes les instructions à partir de la colonne 12 par exemple et de limiter les lignes à la colonne 72 (je sais, il n'y a plus de cartes perforées).
    Mettre également toutes les divisions c'est mieux.
    Pour moi, l'utilisation ou non du DEBUG se définissait dans l'environment division et la Configuration section, mais je suis un vieux grigou.
    Cela dit, j'ai fais un copier/coller du code que tu donnes en exemple, ça se compile sans erreur sous MF NetExpress3.1 et ça s'exécute sans sauter d'instruction.
    Ajout un second DISPLAY pour voir.
    @+
    Jean

  3. #3
    Membre habitué
    Homme Profil pro Julien Guiffroy
    Ingénieur d'étude Mainframe
    Inscrit en
    septembre 2012
    Messages
    61
    Détails du profil
    Informations personnelles :
    Nom : Homme Julien Guiffroy
    Âge : 28
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Ingénieur d'étude Mainframe
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : septembre 2012
    Messages : 61
    Points : 116
    Points
    116

    Par défaut

    Citation Envoyé par JTyvelines Voir le message

    program-id. Program1.

    working-storage section.
    77 nom-c PIC X(30).

    procedure division.
    DISPLAY "TEST"
    ACCEPT nom-c
    DISPLAY "Bonjour " nom-c
    goback.

    end program Program1.
    Essaye de rajouter :
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    
            IDENTIFICATION DIVISION.
            PROGRAM-ID. PROGRAM1.
            ENVIRONMENT DIVISION.
                OBJECT-COMPUTER. IBM-370 WITH DEBUGGING MODE.
            DATA DIVISION.
            WORKING-STORAGE SECTION.
            77 nom-c PIC X(30).
            PROCEDURE DIVISION.
          *Le reste de ton code
    De plus, je pense qu'ACCEPT attend une variable en entrée, donc te JCL d'exécution.

    Essaye de coder une carte SYSIN='TEST' dans ton JCL.

    Essaye aussi, c'est peut être une piste, de tout mettre en majuscules.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •