Nunja, so ist das halt mit der Programmierung.
Definiere alle Variablen für die Displayattribute an den Anfang des Satzformates.
Definiere je Satzformat eine eigene Struktur (DS).
Dann kannst du per
eval %subst(MyDs: 1: Len) = *allx'20';
die Attribute zuweisen.
Du kannst auch
- ein Array anlegen: MyArr 1 dim(nn)
- die Felder in der I-Anweisung umbenennen
- mit eval MyArr = x'20' zuweisen

Aber alles das geht ja eigentlich am Thema vorbei.
Denn auch mit einem API musst du ja irgendwo die Feldnamen übergeben, da ist es doch einfacher in einer *INZSR die Felder zu initialisieren als extra Code zu schreiben der fehleranfälliger wird.