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;
import std.alloc;
import std.string;

fn Feld(p: int64, l: int64): pchar {
    var b: int64 := alloc(l + 1);
    var i: int64 := 0;
    while (i < l) { poke8(b + i, peek8(p + i)); i := i + 1; }
    poke8(b + l, 0);
    return b as pchar;
}

fn main(): int64 {
    var out: int64 := alloc(2048);

    // 1. Positive Syntaxquittung auf den Interchange IC000042
    var n: int64 := EdiContrlOk("IC000042"c, "4098765000004"c,
                                "4012345000009"c, out, 2048);
    PrintLn(Feld(out, n));

    var res: int64 := alloc(EDI_CONTRL_SIZE);
    EdiContrlRead(out, n, res);
    PrintLn(StrConcat("Status: ", IntToStr(peek64(res + EDI_CONTRL_STATUS))));

    // 2. Ablehnung: Pflichtsegment fehlt, Segmentposition 12
    n := EdiContrlErr("IC000042"c, 12, EDI_ERR_MISSING_SEG, out, 2048);
    PrintLn(Feld(out, n));
    EdiContrlRead(out, n, res);
    PrintLn(StrConcat(StrConcat("Status: ", IntToStr(peek64(res + EDI_CONTRL_STATUS))),
            StrConcat("  Fehlercode: ", IntToStr(peek64(res + EDI_CONTRL_ERRCODE)))));

    // 3. Fachliche Ablehnung (APERAK)
    n := EdiAperakWrite("BST-2026-0815"c, 14,
                        "Artikel 04012345678918 unbekannt"c, out, 2048);
    PrintLn(Feld(out, n));
    var ap: int64 := alloc(EDI_APERAK_SIZE);
    EdiAperakRead(out, n, ap);
    PrintLn(StrConcat("APERAK-Text: ", Feld(peek64(ap + EDI_APERAK_TEXT), peek64(ap + EDI_APERAK_TEXTLEN))));
    return 0;
}

UNB+UNOA:1+4098765000004+4012345000009+000000:0000+IC000042'UNH+1+CONTRL:1:901:UN'UCI+IC000042+4012345000009+4098765000004+7'UNT+3+1'UNZ+1+IC000042'
Status: 7
UNB+UNOA:1+++000000:0000+IC000042'UNH+1+CONTRL:1:901:UN'UCI+IC000042+++4+25+12'UNT+3+1'UNZ+1+IC000042'
Status: 4  Fehlercode: 25
BGM+313++9'RFF+ACE:BST-2026-0815'ERC+14'FTX+AAO++Artikel 04012345678918 unbekannt'
APERAK-Text: Artikel 04012345678918 unbekannt

• 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;
import std.alloc;
import std.string;

fn main(): int64 {
    var out: int64 := alloc(2048);
    var n: int64 := EdiContrlErr("IC000042"c, 5, EDI_ERR_INVALID_VALUE, out, 2048);

    var res: int64 := alloc(EDI_CONTRL_SIZE);
    EdiContrlRead(out, n, res);

    if (peek64(res + EDI_CONTRL_STATUS) == EDI_CONTRL_ACCEPTED) {
        PrintLn("Interchange akzeptiert.");
    } else {
        PrintLn(StrConcat("Interchange abgelehnt, Fehlercode: ",
                IntToStr(peek64(res + EDI_CONTRL_ERRCODE))));
        PrintLn(StrConcat("Fehlerhaftes Segment: ",
                IntToStr(peek64(res + EDI_CONTRL_SEGPOS))));
    }
    free(res, EDI_CONTRL_SIZE);
    free(out, 2048);
    return 0;
}

Interchange abgelehnt, Fehlercode: 14
Fehlerhaftes Segment: 5

• Reihenfolge im Betrieb: erst CONTRL (Syntax), dann — falls die Nachricht syntaktisch in Ordnung war, fachlich aber scheitert — APERAK. Eine fachliche Ablehnung ersetzt die Syntaxquittung nicht.
• EdiAperakWrite kürzt den Fehlertext auf EDI_FTX_MAX (512 Zeichen).
• GENRAL-Body ist alloziert: EdiGenralRead legt für den zusammengesetzten FTX-Text einen eigenen Puffer an. Nach Gebrauch mit free(peek64(result + EDI_GENRAL_BODY), peek64(result + EDI_GENRAL_BODYLEN)) freigeben — das ist die einzige Stelle in std.edi, an der die Bibliothek selbst alloziert.
• Alle Text-Parameter sind Zeiger auf nullterminierten Text ("IC000042"c as int64); nur segPos und errCode sind echte Zahlen.

Letzte Aktualisierung: 2026-08-13 — Beispiele lauffähig gemacht und ausgeführt (lyxc 1.0.17K); festgehalten, dass CONTRL einen vollständigen Interchange erzeugt (Fachnachrichten dagegen nur den Rumpf) und dass EdiContrlErr keine Partner-IDs setzt

Codebeispiele geprüft: gegen lyxc 1.2.5C übersetzt (Prüflauf 2026-09-08 über die gesamte Doku: 574 Vollprogramme, 0 echte Fehler; zusätzlich 5159 Aufrufe gegen die pub fn-Signaturen in aurum/std gehalten, 0 Abweichungen).