infra:NET Expert
 
×
4 Einbau in Programm
Beispiel aus „PDV141.CPP“:
1.           Am Programmanfang     
#include "iagktlg.hpp"           // AG-Katalog Service
 
MODUL_DECLARATION(PDV141)
2.           Innerhalb von MODUL_GLOBAL_DATA     
EAIAgktlg      IAgktlg;
3.           Beispiel eines Funktionsaufrufs  
// Katalognummer versorgen    
IAgktlg.scsAgknr = MID(strBFapa, DDp(10, 43), DDl(10, 43)); lOpc = 1;        // Fehler melden
lCre = 1;        // Anlegen Frage erlaubt
// Gueltigen Katalogsatz holen (mit Gueltigkeit Auswertung)
lRc = iagktlgGet(&lOpc, lCre, IAgktlg);
if (lRc)   // Fehler auswerten
    {
    if (lOpc != 0)
        if (!(lOpc == 10 || lOpc == 32))
            goto L_sysfehlerclos;
        if (lCre)
            {
            lMKmakeAGK = 1;   // Merker fuer anlegen
            goto L_t3ac10ohne;
            }
        else
            lEDtsfehl = 1;    // Fehlermerker
            goto L_t3ac10lab4;
    }
// ggf. neue Katalognummer
MID(strBFapa, DDp(10, 43), DDl(10, 43)) = IAgktlg.scsAgknr;
strBFagk = IAgktlg.scsKtlgRec;          // AG-Katalog
Fehlerfall (lRc != 0)muss im Programm behandelt werden.
4.           Das Programm muss mit der SIB WorkBench mit der Angabe in „Edit Target“, „Components“, „add“: „IAGKTLG.CPP“ übersetzt werden.