Global Structure Creation through ZProgram

Global structure creation through this program.

 REPORT  ZTEST_NP_TMP.

DATA : lt TYPE TABLE OF dd03p,
       ls TYPE dd02v.

DATA: ITAB TYPE TABLE OF TY_TEST,
      WA TYPE TY_TEST.

FIELD-SYMBOLS : <fs> LIKE LINE OF lt.

CALL FUNCTION 'DDIF_TABL_GET'
  EXPORTING
    name      =   'SCARR'
  IMPORTING
    dd02v_wa  = ls
  TABLES
    dd03p_tab = lt.
ls-tabclass = 'INTTAB' .
ls-tabname  = 'ZSCARR' .
ls-as4user  = sy-uname .
ls-as4time  = sy-uzeit .
ls-as4date  = sy-datum .
ls-applclass = '' .
ls-authclass = '' .
LOOP AT lt ASSIGNING <fs>.
  <fs>-tabname = 'ZSCARR'.
ENDLOOP.
CALL FUNCTION 'DDIF_TABL_PUT'
  EXPORTING
    name           = 'ZSCARR'
   dd02v_wa        = ls
 TABLES
   dd03p_tab       = lt.
IF sy-subrc = 0.
  MESSAGE 'STRUCTURE CREATED ' TYPE 'I'.
ENDIF.
CALL FUNCTION 'DDIF_TABL_ACTIVATE'
  EXPORTING
    name = 'ZSCARR'.
IF sy-subrc = 0.
  MESSAGE 'STRUCTURE ACTIVATED' TYPE 'I'.
ENDIF.