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
Partager