Discussion :

[JTyvelines]

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.

[Jean GVE]

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

[Skylyn]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.