Das ist in RPG so nicht möglich.
Hier hilft nur etwas Arbeit:

select;
when qqfeld='pInd';
pInd = 'Wert';
when qqfeld='abc';
abc='Wert2';
:
:
endsl;

Das Thema hatten wir hier schon in ähnlicher Form.