Assign Authorization Using ABAP

I create one zprogram2 , but user not having a authorization to use , but that program is not  used by user directly , means that zprogram2 is call by another zprogram1  , So I need to give authorization in the zprogram1 to use zprogram2

Is it any function module to give authorization at run time .