kleine Anmerkung:
bei einem 5250-Debug kommt der Debugger gleich an seine Grenzen mit solch langen Feldnamen.

Mit **free am Anfang und einem entsprechend langen Source Member kannst Du auch Bandwürmer erstellen. Aber ich bevorzuge auch die Lösung von Baldur.