/Free
result = %trim(%editc(firma:'1':'0'));
/end-free

der 1.parm nach firma, ist der edit-code, wie du ihn zB aus einem DSPF kennst