Code: Alles auswählen.
DATA: wa_ztmd_dr_cluster TYPE ztmd_dr_cluster,
cl_key_verw_cluster TYPE zsmd_key_verw_cluster,
wa_ztmd_dr_verwinfo TYPE ztmd_dr_verwinfo,
datei_zeile(80),
params TYPE pri_params,
arcpar TYPE arc_params,
numc3(3) TYPE n.
Code: Alles auswählen.
LOOP AT t_dr_verwinfo INTO wa_ztmd_dr_verwinfo
WHERE useid = 'AG'.
CLEAR cl_key_verw_cluster.
CLEAR wa_ztmd_dr_cluster.
MOVE-CORRESPONDING wa_ztmd_dr_verwinfo TO cl_key_verw_cluster.
CLEAR clust_tab[].
REFRESH clust_tab.
IMPORT clust_tab TO clust_tab
FROM database ztmd_dr_cluster(ag)
TO wa_ztmd_dr_cluster
id cl_key_verw_cluster.
LOOP AT clust_tab.
CLEAR datei_zeile.
IF clust_tab-param_name = 'F_NAME'.
numc3 = '001'.
ELSE.
numc3 = numc3 + 1.
ENDIF.
datei_zeile(3) = numc3.
WRITE clust_tab-param_name TO datei_zeile+4.
WRITE clust_tab-wert_char TO datei_zeile+23.
WRITE: / datei_zeile.
ENDLOOP.
ENDLOOP.