CNIS_GET_VALUES SAP Function module

DATA:
ld_e_flg_call  
 
 TYPE XFELD
,
it_t_range_aufnr  
 
 TYPE STANDARD TABLE OF STANDARD TABLE,"TABLES PARAM
wa_t_range_aufnr
 
 LIKE LINE OF it_t_range_aufnr
,
it_t_range_posid  
 
 TYPE STANDARD TABLE OF STANDARD TABLE,"TABLES PARAM
wa_t_range_posid
 
 LIKE LINE OF it_t_range_posid
,
it_t_range_pspid  
 
 TYPE STANDARD TABLE OF STANDARD TABLE,"TABLES PARAM
wa_t_range_pspid
 
 LIKE LINE OF it_t_range_pspid
.

 

SELECT single TITLETEXT 
  FROM TCNT 
  INTO @DATA(ld_c_titletext).

 

SELECT single TOPTEXT 
  FROM TCNT 
  INTO @DATA(ld_c_toptext).

 

SELECT single PICKUP_KEY 
  FROM TCNT 
  INTO @DATA(ld_c_pickup_key).

 

SELECT single PICKUP_FLD 
  FROM TCNT 
  INTO @DATA(ld_c_pickup_feld).

 

SELECT single FLG_CSVRMK 
  FROM TCNT 
  INTO @DATA(ld_c_cursor_vor_mark).

 

SELECT single DOCUMENT 
  FROM ADMI_RUN 
  INTO @DATA(ld_c_arnummer).

 

SELECT single VSNMR 
  FROM VSKOPF 
  INTO @DATA(ld_c_vsnummer).

 

SELECT single VSTEXT 
  FROM VSKOPF 
  INTO @DATA(ld_c_vstext).

 

SELECT single VSGRUPPE 
  FROM VSKOPF 
  INTO @DATA(ld_c_vsgruppe).

 

SELECT single VSMTA 
  FROM VSKOPF 
  INTO @DATA(ld_c_vsmta).



DATA(ld_c_co_vsnummer_1) = some text here


DATA(ld_c_co_vsnummer_2) = some text here
 

SELECT single VERSN_EV 
  FROM EVOP 
  INTO @DATA(ld_c_ev_vsnummer_1).

 

SELECT single PROFID 
  FROM TCNT 
  INTO @DATA(ld_c_tcnt_profid).

 

SELECT single PROF_UC 
  FROM TCNT 
  INTO @DATA(ld_c_tcnt_prof_uc).

 

SELECT single PROF_DB 
  FROM TCNT 
  INTO @DATA(ld_c_tcnt_prof_db).

 

SELECT single DB_VIEW 
  FROM TCNDB 
  INTO @DATA(ld_c_tcndb_db_view).

 

SELECT single PROFID 
  FROM TCND 
  INTO @DATA(ld_c_tcnd_profid).

 

SELECT single PROF_FD 
  FROM TCND 
  INTO @DATA(ld_c_tcnd_prof_fd).

 

SELECT single PROF_SR 
  FROM TCND 
  INTO @DATA(ld_c_tcnd_prof_sr).

 

SELECT single PROF_AG 
  FROM TCND 
  INTO @DATA(ld_c_tcnd_prof_ag).

 

SELECT single PROF_GP 
  FROM TCND 
  INTO @DATA(ld_c_tcnd_prof_gp).

 

SELECT single PROF_VGL 
  FROM TCND 
  INTO @DATA(ld_c_tcnd_prof_vgl).

 

SELECT single SLWID 
  FROM TCN01 
  INTO @DATA(ld_c_slwid).

 

SELECT single PROFIDPROJ 
  FROM TCJ41 
  INTO @DATA(ld_c_profidproj).

 

SELECT single PLNAW 
  FROM TCN41 
  INTO @DATA(ld_c_plnaw).

 

SELECT single PROFIDNETZ 
  FROM TCN41 
  INTO @DATA(ld_c_profidnetz).

 

SELECT single PROFILE 
  FROM TCBP 
  INTO @DATA(ld_c_profidbalk).

 

SELECT single PROFIL_ID 
  FROM TCY10 
  INTO @DATA(ld_c_profil_id).



DATA(ld_c_eis_repid) = some text here
 

SELECT single PS_HIERART 
  FROM TCNDS 
  INTO @DATA(ld_c_ps_hierart).

 

SELECT single HIERAR 
  FROM TCNDS 
  INTO @DATA(ld_c_hierar).

 

SELECT single HIERID 
  FROM TCNDS 
  INTO @DATA(ld_c_hierid).

 

SELECT single HIENM 
  FROM TCNDS 
  INTO @DATA(ld_c_hienm).



DATA(ld_c_stufe_von) = Check type of data required


DATA(ld_c_stufe_bis) = Check type of data required
 

SELECT single CMPOS 
  FROM TCBP 
  INTO @DATA(ld_c_cmpos).

 

SELECT single CMART 
  FROM TCBP 
  INTO @DATA(ld_c_cmart).



DATA(ld_c_flg_einst) = some text here


DATA(ld_c_flg_auth) = some text here


DATA(ld_c_flg_daten) = some text here
 

SELECT single USERNAME 
  FROM CDHDR 
  INTO @DATA(ld_c_username).

 

SELECT single UDATE 
  FROM CDHDR 
  INTO @DATA(ld_c_changedate).

 

SELECT single UTIME 
  FROM CDHDR 
  INTO @DATA(ld_c_changetime).


DATA(ld_i_titlebar) = 'Check type of data required'.
 

SELECT single TABNAME 
  FROM TCND 
  INTO @DATA(ld_i_tabname).


DATA(ld_i_flg_call) = 'Check type of data required'.

DATA(ld_i_flg_titletext) = 'Check type of data required'.

DATA(ld_i_flg_toptext) = 'Check type of data required'.

DATA(ld_i_flg_pickup) = 'Check type of data required'.

DATA(ld_i_flg_arnummer) = 'Check type of data required'.

DATA(ld_i_flg_vsnummer) = 'Check type of data required'.

DATA(ld_i_flg_version) = 'Check type of data required'.
 

SELECT single VSKAT 
  FROM VSKOPF 
  INTO @DATA(ld_i_vskat).


DATA(ld_i_flg_co_versionen) = 'Check type of data required'.

DATA(ld_i_flg_ev_versionen) = 'Check type of data required'.

DATA(ld_i_flg_tcnt) = 'Check type of data required'.

DATA(ld_i_flg_tcnu) = 'Check type of data required'.

DATA(ld_i_flg_tcndb) = 'Check type of data required'.

DATA(ld_i_flg_tcnds) = 'Check type of data required'.

DATA(ld_i_flg_tcnd) = 'Check type of data required'.

DATA(ld_i_flg_tcnf) = 'Check type of data required'.

DATA(ld_i_flg_tcns) = 'Check type of data required'.

DATA(ld_i_flg_tcna) = 'Check type of data required'.

DATA(ld_i_flg_tcnp) = 'Check type of data required'.

DATA(ld_i_flg_tcnvg) = 'Check type of data required'.

DATA(ld_i_flg_slwid) = 'Check type of data required'.

DATA(ld_i_flg_profidproj) = 'Check type of data required'.

DATA(ld_i_flg_profidnetz) = 'Check type of data required'.

DATA(ld_i_flg_profidbalk) = 'Check type of data required'.

DATA(ld_i_flg_psrlv) = 'Check type of data required'.

DATA(ld_i_flg_profil_id) = 'Check type of data required'.

DATA(ld_i_flg_eis_repid) = 'Check type of data required'.

DATA(ld_i_flg_hierarchie) = 'Check type of data required'.

DATA(ld_i_flg_stufen) = 'Check type of data required'.

DATA(ld_i_flg_beschriftung) = 'Check type of data required'.

DATA(ld_i_flg_mail) = 'Check type of data required'.

DATA(ld_i_flg_change_documents) = 'Check type of data required'.
 

"populate fields of struture and append to itab
append wa_t_range_aufnr to it_t_range_aufnr.
 

"populate fields of struture and append to itab
append wa_t_range_posid to it_t_range_posid.
 

"populate fields of struture and append to itab
append wa_t_range_pspid to it_t_range_pspid.
.

CALL FUNCTION 'CNIS_GET_VALUES'
  EXPORTING
    i_titlebar =                 ld_i_titlebar
*   i_tabname =                  ld_i_tabname
*   i_flg_call =                 ld_i_flg_call
*   i_flg_titletext =            ld_i_flg_titletext
*   i_flg_toptext =              ld_i_flg_toptext
*   i_flg_pickup =               ld_i_flg_pickup
*   i_flg_arnummer =             ld_i_flg_arnummer
*   i_flg_vsnummer =             ld_i_flg_vsnummer
*   i_flg_version =              ld_i_flg_version
*   i_vskat =                    ld_i_vskat
*   i_flg_co_versionen =         ld_i_flg_co_versionen
*   i_flg_ev_versionen =         ld_i_flg_ev_versionen
*   i_flg_tcnt =                 ld_i_flg_tcnt
*   i_flg_tcnu =                 ld_i_flg_tcnu
*   i_flg_tcndb =                ld_i_flg_tcndb
*   i_flg_tcnds =                ld_i_flg_tcnds
*   i_flg_tcnd =                 ld_i_flg_tcnd
*   i_flg_tcnf =                 ld_i_flg_tcnf
*   i_flg_tcns =                 ld_i_flg_tcns
*   i_flg_tcna =                 ld_i_flg_tcna
*   i_flg_tcnp =                 ld_i_flg_tcnp
*   i_flg_tcnvg =                ld_i_flg_tcnvg
*   i_flg_slwid =                ld_i_flg_slwid
*   i_flg_profidproj =           ld_i_flg_profidproj
*   i_flg_profidnetz =           ld_i_flg_profidnetz
*   i_flg_profidbalk =           ld_i_flg_profidbalk
*   i_flg_psrlv =                ld_i_flg_psrlv
*   i_flg_profil_id =            ld_i_flg_profil_id
*   i_flg_eis_repid =            ld_i_flg_eis_repid
*   i_flg_hierarchie =           ld_i_flg_hierarchie
*   i_flg_stufen =               ld_i_flg_stufen
*   i_flg_beschriftung =         ld_i_flg_beschriftung
*   i_flg_mail =                 ld_i_flg_mail
*   i_flg_change_documents =     ld_i_flg_change_documents
  IMPORTING
    e_flg_call =                 ld_e_flg_call
* TABLES
*   t_range_aufnr =              it_t_range_aufnr
*   t_range_posid =              it_t_range_posid
*   t_range_pspid =              it_t_range_pspid
* CHANGING
*   c_titletext =                ld_c_titletext
*   c_toptext =                  ld_c_toptext
*   c_pickup_key =               ld_c_pickup_key
*   c_pickup_feld =              ld_c_pickup_feld
*   c_cursor_vor_mark =          ld_c_cursor_vor_mark
*   c_arnummer =                 ld_c_arnummer
*   c_vsnummer =                 ld_c_vsnummer
*   c_vstext =                   ld_c_vstext
*   c_vsgruppe =                 ld_c_vsgruppe
*   c_vsmta =                    ld_c_vsmta
*   c_co_vsnummer_1 =            ld_c_co_vsnummer_1
*   c_co_vsnummer_2 =            ld_c_co_vsnummer_2
*   c_ev_vsnummer_1 =            ld_c_ev_vsnummer_1
*   c_tcnt_profid =              ld_c_tcnt_profid
*   c_tcnt_prof_uc =             ld_c_tcnt_prof_uc
*   c_tcnt_prof_db =             ld_c_tcnt_prof_db
*   c_tcndb_db_view =            ld_c_tcndb_db_view
*   c_tcnd_profid =              ld_c_tcnd_profid
*   c_tcnd_prof_fd =             ld_c_tcnd_prof_fd
*   c_tcnd_prof_sr =             ld_c_tcnd_prof_sr
*   c_tcnd_prof_ag =             ld_c_tcnd_prof_ag
*   c_tcnd_prof_gp =             ld_c_tcnd_prof_gp
*   c_tcnd_prof_vgl =            ld_c_tcnd_prof_vgl
*   c_slwid =                    ld_c_slwid
*   c_profidproj =               ld_c_profidproj
*   c_plnaw =                    ld_c_plnaw
*   c_profidnetz =               ld_c_profidnetz
*   c_profidbalk =               ld_c_profidbalk
*   c_profil_id =                ld_c_profil_id
*   c_eis_repid =                ld_c_eis_repid
*   c_ps_hierart =               ld_c_ps_hierart
*   c_hierar =                   ld_c_hierar
*   c_hierid =                   ld_c_hierid
*   c_hienm =                    ld_c_hienm
*   c_stufe_von =                ld_c_stufe_von
*   c_stufe_bis =                ld_c_stufe_bis
*   c_cmpos =                    ld_c_cmpos
*   c_cmart =                    ld_c_cmart
*   c_flg_einst =                ld_c_flg_einst
*   c_flg_auth =                 ld_c_flg_auth
*   c_flg_daten =                ld_c_flg_daten
*   c_username =                 ld_c_username
*   c_changedate =               ld_c_changedate
*   c_changetime =               ld_c_changetime
  EXCEPTIONS
    CANCEL =                     1
    .  "  CNIS_GET_VALUES

IF SY-SUBRC EQ 0.
  "All OK
ELSEIF SY-SUBRC EQ 1. "Exception
  "Add code for exception here
ENDIF.