std.edi.messages

Infrastruktur-Nachrichten für den EDIFACT-Austausch: Empfangsquittungen, Fehlermeldungen und Freitext. Diese Nachrichten sind kein Geschäftsinhalt, sondern die technische Kommunikationsebene zwischen zwei EDI-Partnern.

• CONTRL — Syntax-Quittung (positiv oder negativ). Jeder empfangene Interchange wird quittiert.
• APERAK — Anwendungsebenen-Fehlermeldung. Wird nach erfolgreicher Syntax-Prüfung gesendet, wenn eine Nachricht inhaltlich abgelehnt wird.
• GENRAL — Freitext-Nachricht für alles, was kein eigenes Message-Format hat.

import std.edi.messages;

// Positive Quittung auf Interchange "ICR-2026-001" senden
var out: int64 := alloc(4096);
var n: int64 := EdiContrlOk(
    "ICR-2026-001" as int64,
    "MYCOMPANY" as int64,
    "PARTNER01" as int64,
    out, 4096);
// n = Byte-Länge des CONTRL-Segments
free(out, 4096);

• std.edi.core
• std.alloc

Status-Konstanten:

Standard-Fehlercodes (UN/EDIFACT S005):

Achtung GENRAL-Body: EdiGenralRead alloziert einen Puffer für den zusammengesetzten FTX-Inhalt. Nach der Verarbeitung freigeben mit:

free(peek64(result + EDI_GENRAL_BODY), peek64(result + EDI_GENRAL_BODYLEN));

import std.edi.messages;

// Interchange "ICR-XYZ" ablehnen: Segment 5 hat ungültigen Wert
var out: int64 := alloc(4096);
var n: int64 := EdiContrlErr(
    "ICR-XYZ" as int64,
    5,                     // Segment-Position
    EDI_ERR_INVALID_VALUE, // Fehlercode 14
    out, 4096);

// n Bytes EDIFACT-Daten in out senden ...
free(out, 4096);

import std.edi.messages;

// Eingehende CONTRL-Quittung auswerten
var result: int64 := alloc(EDI_CONTRL_SIZE);
EdiContrlRead(inBuf, inBufLen, result);

if (peek64(result + EDI_CONTRL_STATUS) == EDI_CONTRL_ACCEPTED) {
    PrintLn("Interchange akzeptiert.");
} else {
    PrintLn("Interchange abgelehnt, Fehlercode: " +
        IntToStr(peek64(result + EDI_CONTRL_ERRCODE)));
}
free(result, EDI_CONTRL_SIZE);

Letzte Aktualisierung: 2026-06-16