Das Gegenstück / Definition im ABAP:/: PERFORM GET_VALUE IN PROGRAM YFORM_ROUTINES
/: USING &WERT1&
/: USING &WERT2&
/: CHANGING &SUMME&
/: ENDPERFORM
Code: Alles auswählen.
REPORT YFORM_ROUTINES.
FORM GET_VALUE TABLES IN_PAR STUCTURE ITCSY
OUT_PAR STRUCTURE ITCSY.
DATA:
WERT1(20),
WERT2(20).
READ TABLE IN_PAR WITH KEY ‘WERT1’.
CHECK SY-SUBRC = 0.
Wert1 = IN_PAR-VALUE.
READ TABLE IN_PAR WITH KEY ‘WERT2’.
CHECK SY-SUBRC = 0.
wert2 = IN_PAR-VALUE.
READ TABLE OUT_PAR WITH KEY ‘SUMME’.
CHECK SY-SUBRC = 0.
OUT_PAR-VALUE = wert1 + wert2.
MODIFY OUT_PAR INDEX SY-TABIX.
ENDFORM.
Code: Alles auswählen.
CALL FUNCTION 'GET_SF_DUNN_DATA'
EXPORTING
is_sfparam = is_sfparam
IMPORTING
ES_MHNK = mhnk
ES_T001 = t001
ES_KNB5 = knb5
ES_LFB5 = lfb5
ES_T047 = t047
ES_T047C = t047c
ES_T047I = t047i
ES_T056Z = t056z
ES_F150D = f150d
ES_FSABE = fsabe
ES_ADRNR = adrnr
ES_UADRNR = uadrnr
ES_ADRS = adrs
ES_UADRS = uadrs
ES_T047B = t047b
eb_testprint = testprint
e_langu = langu
e_lang2 = lang2
es_F150d_esr = f150d_esr
es_paymi = paymi
es_paymo = paymo
tables
t_mhnd = th_mhnd
EXCEPTIONS
NO_PARAMETERS_FOUND = 1
OTHERS = 2
.
IF sy-subrc <> 0.
SY-MSGID = 'FM'.
SY-MSGTY = 'E'.
SY-MSGNO = 461.
raise others.
ENDIF.
Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Report Z_MAHN_SF_DUNN
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Z_MAHN_SF_DUNN.
data ls_mhnk type mhnk.
data ls_SFPARAM type SFPARAM.
data ES_MHNK type mhnk.
data T_MHND type table of MHND.
select single * from mhnk into ls_mhnk where
laufi = 'JP2' and LAUFD = '20130415' and kunnr = '0000002729'.
* The following statement is equivalent to: h_mhnk = is_sfparam-content.
class CL_ABAP_CONTAINER_UTILITIES definition load.
CALL METHOD cl_abap_container_utilities=>fill_container_c
EXPORTING
im_value = ls_mhnk
IMPORTING
ex_container = ls_SFPARAM-CONTENT
EXCEPTIONS
illegal_parameter_type = 1
others = 2
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
CALL FUNCTION 'GET_SF_DUNN_DATA'
EXPORTING
is_sfparam = ls_SFPARAM
IMPORTING
ES_MHNK = ES_MHNK
* ES_T001 =
* ES_KNB5 =
* ES_LFB5 =
* ES_T047 =
* ES_T047C =
* ES_T047I =
* ES_T056Z =
* ES_F150D =
* ES_FSABE =
* ES_ADRNR =
* ES_UADRNR =
* ES_ADRS =
* ES_UADRS =
* ES_T047B =
* EB_TESTPRINT =
* E_LANGU =
* E_LANG2 =
* ES_F150D_ESR =
* ES_PAYMI =
* ES_PAYMO =
* ES_F150D2 =
tables
t_mhnd = T_MHND
EXCEPTIONS
NO_PARAMETERS_FOUND = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
Also numerisches Feld ?wreichelt hat geschrieben:Das Feld das ich errechne ist ein Num. Feld (Bruttogewicht).
Folgende Benutzer bedankten sich beim Autor Tron für den Beitrag (Insgesamt 2):
wreichelt • badi_builder