Nun, eine XML-Struktur kann ich da nun auch nicht erkennen.

Wenn du nun einen Output in eine Datei machst, kannst du mit COBOL-Mitteln die Daten zusammenstricken:

string
"" delimited by size
Variable delimited by space <== Size geht hier ja auch
"" delimited by size
into Ziel
write myfile from ziel

Und schreibst das Ganze in eine PF.
Anschließend gibst du das mit CPYTOSTMF ins IFS als XML aus.
Wo ist das Problem?