Finding Performs In A Program

REPORT ztest.

data: form_routines type STOKEN occurs 0 with header line.

parameters:p_prog type sy-repid.

start-of-selection.

CALL FUNCTION 'SWF_FORMS_OF_PROGRAM_GET'
EXPORTING
program = p_prog
TABLES
form_routines = form_routines
EXCEPTIONS
PROGRAM_NOT_FOUND = 1
CONTAINS_NO_FORM_ROUTINES = 2
OTHERS = 3
.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

loop at form_routines.
write:/ 'perform name is:' , form_routines-str.
endloop.