Code: Alles auswählen.
REPORT YMI_SG_NACHWEIS_A NO STANDARD PAGE HEADING.
TABLES ZMI_PS_ZZKF_O.
CALL SCREEN 0815.
SELECTION-SCREEN BEGIN OF SCREEN 0815.
PARAMETERS N_KOKRS LIKE ZMI_PS_ZZKF_O-KOKRS DEFAULT 'DB01' OBLIGATORY.
SELECT-OPTIONS N_BUKRS for ZMI_PS_ZZKF_O-BUKRS.
PARAMETERS N_GJAHR LIKE ZMI_PS_ZZKF_O-GJAHR.
SELECT-OPTIONS N_PSPNR FOR ZMI_PS_ZZKF_O-PSPNR.
SELECT-OPTIONS N_Monat FOR ZMI_PS_ZZKF_O-Monat.
SELECTION-SCREEN END OF SCREEN 0815.
DATA: psp LIKE zmi_ps_zzkf_o-pspnr,
fl1 LIKE zmi_ps_zzkf_o-FL_ERST_M,
fl2 LIKE zmi_ps_zzkf_o-FL_AUFW_M.
SELECT FL_ERST_M INTO fl1 FROM ZMI_PS_ZZKF_O. ENDSELECT.
SELECT FL_AUFW_M INTO fl2 FROM ZMI_PS_ZZKF_O. ENDSELECT.
WRITE: / fl1 , fl2.
Code: Alles auswählen.
SELECT FL_ERST_M INTO fl1 FROM ZMI_PS_ZZKF_O.
ENDSELECT.
SELECT FL_AUFW_M INTO fl2 FROM ZMI_PS_ZZKF_O.
ENDSELECT.
fl = fl1 + fl2.
write: / fl.
Code: Alles auswählen.
SELECT * INTO dtab FROM ZMI_PS_ZZKF_O.
fl = dtab-fl_erst_m + dtab-FL_AUFW_M.
Write: / fl.
ENDSELECT.
Code: Alles auswählen.
Write: / fl , 15' ' , el.