REPORT z04_05.

DATA: BEGIN OF gs_str,
        empcd TYPE ZEMPLIST-EMPCD VALUE '1001',
        ename TYPE ZEMPLIST-ENAME VALUE '김철수',
      END OF gs_str.

PERFORM write_data USING gs_str.

FORM write_data USING ps_str STRUCTURE gs_str.
  WRITE: ps_str-empcd, ps_str-ename.
ENDFORM.                    "WRITE_DATA