Compilation avec microsoft visual studio cobol

Fermé
Taboulai - Modifié par Taboulai le 22/10/2013 à 13:23
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




A voir également: