Guten Tag zusammen,
ich versuche aus einem Programm "PAR801" eine Prozedur eines Serviceprogramms
"PAR999" anzusprechen, bekomme jedoch beim Wandeln von "PAR801" folgende
Fehlernachricht:
" Objekt QZDMMDTA der Art *SRVPGM in Bibliothek QSOC nicht gefunden. Definition für Symbol 'pr_art800' nicht gefunden."
PAR999 ist als Modul und dann als Serviceprogramm gewandelt.
Ich habe ein Binderverzeichnis "PAR999_BND" erstellt mit Modul "PAR999".
BNDDIR Eintrag in PAR801:
Code:
H Bnddir('PAR999_BND')
Prototyp im PAR801:
Code:
D test PR * extproc('pr_art800')
D Firma 10I 0 value
D Artnr 10I 0 value
Dgetlabz S *
Der Aufruf in PAR801:
Code:
firm = 1;
arte = 278442;
getlabz = test(firm:arte);
labz = %str(%addr(getlabz));
Prozedurdefinition in PAR999:
Code:
dcl-proc pr_art800 export ;
D pr_art800 PI *
D FIRMA 10I 0
D ARTNR 10I 0
d LABZ S * inz
weiß jmd Rat, weshalb die Prozedur nicht gefunden wird?
Bookmarks