Calling subroutine from scripts

I am calling a subroutine form a standard text, the subroutine is getting called but the input table is comming empty.

can any one please advise me what could be the problem.

/:PERFORM GET_APP_DATA IN PROGRAM YHR_APP_DATA

/:USING &P0001-PERNR&

/:CHANGING &GRADE&

/:ENDPERFORM