Function Module to Create Organizational Structure! - Infotype 1000, 1001....

  DATA    : lc_inse     TYPE okcode VALUE 'INSE',
                lc_vtask   TYPE vtask    VALUE 'D'.


  CALL FUNCTION 'RH_INSERT_INFTY'
    EXPORTING
      fcode                  = lc_inse
      vtask                   = lc_vtask
      authy                  = space
      commit_flg          = c_x  'X'
    TABLES
      innnn                   = pt_table   " Here we can pass the Infotypes 1000, 1001...
    EXCEPTIONS
      no_authorization    = 1
      error_during_insert = 2
      repid_form_initial  = 3
      corr_exit           = 4
      begda_greater_endda = 5
      OTHERS              = 6.
  IF sy-subrc <> 0.
    EXIT.
  ENDIF.