Wie wär's mit einer Copy-Strecke, in der Du alle Codes in den D-Spezifikationen erfasst. Diese kannst Du in jedes betreffende Programm einbinden. Zum Beispiel mit folgenden Einträgen:

D ENTER S 1 INZ(X'F1')
D F1 S 1 INZ(X'31')
D F2 S 1 INZ(X'32')
usw.

So machen wir das zumindest.

Gruß,
KM