Hallo,
muß auch mit COBOL hantieren. Versuch doch mal mit "redefines".
Folgendes Konstrukt sollte eigentlich funktionieren
01 NachVorname PIC x(50).
01 NachVorname-Red redefines NachVorname.
05 Nachname PIC x(25).
05 Vorname PIC x(25).
Dann machste einfach einen Move in Nachname und Vorname und kannst das ganze über NachVorname komplett auslesen.
Funktioniert, da das Redefines bewirkt, daß man auf denselben Speicherplatz zugreift, nur andere Definition dieses Bereichs.
Es könnte auch ohne gehen. Einfach mit Unterdefinition.
01 NachVorname.
05 Nachname PIC x(25).
05 Vorname PIC x(25).
Und das ganze halt mit NachVorname ansprechen.
Hoffe, es hilft.