Roles that are authorized for a Company Code

Hello

Would you help me write an ABAP program that reads list of ABAP roles (or a single role) authorized for a FI Company Code. Roles that have a particular company code set in their authorization Data using PFCG.IAll  know is that we got to deal with authorization objects and AGR_* tables. But if you could help me with exact steps or share an ABAP Program, that will be a great help.

I hope my requirement is clear. Many Thanks in advance.

Regards

PG