Code: Alles auswählen.
*------------------------------------------------------------*
* INCLUDE ZXKKCU01 *
*------------------------------------------------------------*
* transformation of fields for a special data transfer
data:
s like rkctdeu, " structure to be used for sender set
begin of dateval,
day(2) type c,
month(6) type c,
year(2) type c,
end of dateval,
begin of sapdate,
year(4) type c,
month(2) type c,
day(2) type c,
end of sapdate.
case REPID.
when 'DEUBA'.
move sender_set to s. " assign sender_set type s " (i.e., rkctdeu)
* calculation of transport date
dateval = s-trans_date.
move dateval-day to sapdate-day.
concatenate '19' dateval-year into sapdate-year.
translate dateval-month to upper case.
if dateval-month cs 'SEP'.
sapdate-month = '09'.
else.
sapdate-month = '10'.
endif.
s-trans_date = sapdate.
when 'DREBA'.
* different treatment of transport date
* ....
when others.
* special case: unknown sender structure
* ....
endcase.
move s to sender_set.
* perform the general move:
move sender_set to sender_set_new.
Hallo Hermann,Hermann hat geschrieben:Ich habe ein bisschen Zweifel, dass das der richtige Baustein für das ist, was Du vorhast.
Hallo Hermann,Hermann hat geschrieben: Der Exit 'EXIT_SAPLRHA0_005' sieht meiner Ansicht nach ganz gut aus, damit kann man im Eingang im Zielsystem Änderungen vornehmen.
Hermann
Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Include ZXHALU02 *
*&---------------------------------------------------------------------*
DATA: wa_pd_infty TYPE wplog,
wa_pa_infty TYPE prelp.
CASE pnnnn_name.
*--- Infotyp Objekt (1000) ---*
WHEN 'P1000'.
MOVE-CORRESPONDING pnnnn_data TO wa_pd_infty.
**** Daten manipulieren
wa_pd_infty-objid(3) = '123'.
CLEAR: sdata_data.
MOVE: wa_pd_infty TO sdata_data.
*--- Infotyp Verknüpfungen (1001) ---*
WHEN 'P1001'.
MOVE-CORRESPONDING pnnnn_data TO wa_pd_infty.
**** Daten manipulieren
wa_pd_infty-objid(3) = '123'.
wa_pd_infty-varyf+2(3) = '123'.
wa_pd_infty-vdata+2(3) = '123'.
CLEAR: sdata_data.
MOVE: wa_pd_infty TO sdata_data.
*--- alle anderen Infotypen ---*
WHEN OTHERS.
MOVE-CORRESPONDING pnnnn_data TO wa_pa_infty.
**** Daten manipulieren
wa_pa_infty-pernr(3) = '123'.
CLEAR: sdata_data.
MOVE: wa_pa_infty TO sdata_data.
ENDCASE.