Discussion :

[Taboulai]

Bonjour,

Je n'arrive pas à compiler mes fonctions cobol avec microsoft visual studio cobol.
J'ai un fichier qui fait appel à une autre procédure contenue dans un fichier:

Appel sous-programme :
Création d’un Nouveau projet en mode console sous Microsoft Visual Studio Cobol :
Programme principal (programme appelant)(appel-pg-PP.cbl):

IDENTIFICATION DIVISION.
program-id. appel-pg-PP.

ENVIRONMENT DIVISION.
DATA DIVISION.

working-storage section.
1 entier1 pic 99 value 0.
1 entier2 pic 99 value 0.
1 entier3 pic 999 value 0.

screen section.
1 a-plg-titre line 2 col 20 'Test sur entier'.
1 a-plg-res3.
2 line 18 col 3 'Le resultat dans le pg principal somme : '.
2 a-entier3 pic 999 from entier3.
1 a-plg-res1.
2 line 14 col 3 'le 1er nombre : '.
2 a-entier1 pic 99 from entier1.
1 a-plg-res2.
2 line 15 col 3 'le 2eme nombre : '.
2 a-entier2 pic 99 from entier2.

procedure division.
display a-plg-titre
compute entier1 = 10
compute entier2 = 20
display a-plg-res1
display a-plg-res2
call 'somme' using entier1 entier2 entier3 end-call *>APPEL du sous-prog SPPsomme
display a-plg-res3
goback.
end program appel-pg-PP.

Création d’un nouveau fichier en cbl se nommant somme :

Programme appelé (somme.cbl):

IDENTIFICATION DIVISION.
program-id. somme.

DATA DIVISION.
linkage section.
1 val1 pic 99.
1 val2 pic 99.
1 val3 pic 999.
screen section.
1 a-plg-res.
2 line 12 col 3 'Le resultat somme dans sous prog : '.
2 a-val3 pic 999 from val3.

procedure division using val1 val2 val3.
compute val3 = val1 + val2
display a-plg-res
goback.
end program somme.




L'erreur provoquée lors de la compilation est :

Le 1er nombre : 10
Le 2eme nombre : 20Unhandled Exception : COBOLProgramNotFound
%d error message text not fount [somme]
at System.Object MicroFocus.COBOL.Program.Controle.CallReturningObject<UInt32 callConvention,System.String program,System.Object[] parameters, MicroFocus.COBOL.Program.IObjectControl pgInstance>
at Int64 MicroFocus.COBOL.Program.Control.Call<UInt32 callConvention,System.String program,System.Object[] parameters,MicroFocus.COBOL.Program.IObjectControlpgInstance>
at Int32 appel-pg-PP.appel_pg_PP<> in C:\Users\Twister\Programmation\COBOL\InitiationCobol\60sousProgramme\40sousProgramme\SsProg\SsProg\appel-pg-PP.cbl :line 33
at Int32 appel-pg-PP._MF_ENTRY<>


Si quelqu'un pourrait m'éclaircir, ça me bloque complètement
merci beaucoup



Sophie

[HRS]

vous ne vous pas planté à la compilation mais à l'exécution

les 2 fichiers appel-pg-PP.cbl et somme.cbl doivent être dans le même projet

et somme.cbl doit être compilé en 1er

[Taboulai]

Je vous remercie tout d'abord de m'avoir apporté un élément de réponse.
Mais comment compiler le fichier somme.cbl ??
Quand je compile somme.cbl, cela me provoque l'erreur suivante :
-COBCH0857 :System error - failure during ILASM phase

Pourquoi devrais-t-on compiler en premier le fichier appelé avant le programme principal qui lui appelle ce fichier ?

Désolé, mais, je dois vraiment sauter une étape, car cela ne fonctionne toujours pas.

En vous détaillant mes étapes :

Fichier -> Nouveau -> Projet -> Console Application

Après cela, j'écris mon programme principal qui se nomme 'appel-pg-PP.cbl'.

Puis dans l'explorateur de solutions sur mon projet je clique droit et clique
sur :
Ajouter -> Nouvel élément -> COBOL Program

Dans ce nouveau fichier qui s'ajoute à mon projet, j'écris le programme somme.cbl.

Les deux fichiers se trouvent du coup dans le même répertoire et malgré cela
le programme principal ne trouve pas le précédent.

[Taboulai]

Mon problème venait du fait que je lançais un projet en mode "Managed" en console application alors que j'aurai du lancer le projet sous "Native" en console application.
Merci pour vos indications sur l'ordre de compilation, elles m'ont étés utiles

cordialement,

Sophie