Dafür ist leider die Sprache (ILE)RPG vollkommen ungeeignet.
Der Feldname dient ja nur uns für die Addressierung des Speichers. Zur Laufzeit spielt letztlich der Name keine Rolle mehr.

Was du machen willst Bedarf am Ende Pointerarithmetik und %Subst().
Per API liest du dir die Feldstruktur der externen Tabelle ein und baust ein weiteres Array auf:
- Name = Name des Feldes
- Pointer = Verweis auf die Basis der externen Struktur + Position des Feldes aus dem API.
- Länge = Länger des Feldes.

Zusätzlich nun 2 Singelfelder:
dcl-s ptr pointer;
dcl-s Feld char(1000) based(ptr);

Hilfsfelder:
dcl-s index int(5);
dcl-s j int(5);

Wenn das Array nach Name sortiert hast, kannst du mit %lookupeq() schnell ein Element auslesen.
Nun kannst du durch dein vorher aufgebautes Array mit den 3000 Namen und Inhalten in einer Schleife folgendes tun:
for j=1 to 3000;
index = %lookupeq(name[j]:PtrArray);
ptr = PtrArray(index).Pointer;
%subst(Feld:1:PtrArray(index).Size) = Value[j];
endfor;

Allerdings ist eine Umwandlung in numerische Felder nur per select/when je Typ mittels %dec() durchführbar, weil die Argumente Stellne/Nachkomma von %dec nur Konstanten sein können.