죄송합니다. 소스를 다음과 같이 수정합니다.

REPORT z05_001.

DATA: fname(10) TYPE c,

           lname(10) TYPE c,

           fullname(20) TYPE c.

PERFORM concate.

FORM concate .
  fname = 'HONG'.

  lname = 'GILDONG'.
  CONCATENATE fname lname INTO fullname SEPARATED BY space.

  PERFORM out.

ENDFORM.                    " addit

FORM out.

  WRITE: / fullname.

ENDFORM.                    "out

REPORT  Z05_003                                                     .
DATA: progname(8) TYPE c VALUE 'Z05_001',  subrname(8) TYPE C.
subrname = 'concate'.

TRANSLATE subrname TO UPPER CASE.

PERFORM (subrname) IN PROGRAM (progname) IF FOUND.