EXEC TAA PUT/GET BLOB Statement

Für Syntax siehe hier.

Die Anweisungen werden zwar erkannt und generiert¹⁾, allerdings sind Variablen vom Typ USAGE POINTER zur Zeit noch nicht unterstützt.

Get Blob:

           EXEC TAA GET BLOB 000-BLOB-2 IN LBLOBS
               DATA INTO WS-BLOB LENGTH INTO WS-SIZE
           END-EXEC

Wsblob2 = Lblobs._000Blob2;
WsSize = Lblobs._000Blob2.Length;

Put Blob:

           EXEC TAA PUT BLOB 000-BLOB-2 IN LBLOBS
              DATA FROM WS-BLOB LENGTH FROM WS-SIZE
           END-EXEC

Der Blob wird immer in kompletter Länge übergeben; das Längenfeld wird ignoriert.

Lblobs._000Blob2 = Wsblob;