Code: Alles auswählen.
data gt_hunde type ZXXX_YY_ASHUN_HUND_SCR_T.
data gt_person type ZXXX_YY_ASHUN_OTHER_PERS_SCR_T.
TABLES ZXXX_YY_ASHUN_HUND_SCR.
tables ZXXX_YY_ASHUN_OTHER_PERS_SCR.
Code: Alles auswählen.
*&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'TC_PERSON'
MODULE tc_person_change_tc_attr.
*&SPWIZARD: MODULE TC_PERSON_CHANGE_COL_ATTR.
LOOP AT gt_person INTO zxxx_yy_ashun_other_pers_scr WITH CONTROL tc_person CURSOR tc_person-current_line.
*&SPWIZARD:
MODULE TC_PERSON_CHANGE_FIELD_ATTR
ENDLOOP.
Code: Alles auswählen.
LOOP AT gt_person. CHAIN.
FIELD zxxx_yy_ashun_other_pers_scr-name_first.
FIELD zxxx_yy_ashun_other_pers_scr-name_last.
FIELD zxxx_yy_ashun_other_pers_scr-birthdt.
MODULE tc_person_modify ON CHAIN-REQUEST.
ENDCHAIN.
FIELD zxxx_yy_ashun_other_pers_scr-mark
MODULE tc_person_mark ON REQUEST.
ENDLOOP.
Code: Alles auswählen.
MODULE tc_person_modify INPUT.
MODIFY gt_person FROM xxx_yyy_ashun_other_pers_scr INDEX tc_person-current_line.
">>>FEHLTEN diese 3 Zeilen
IF sy-subrc NE 0.
APPEND zxxx_yy_ashun_other_pers_scr TO gt_person.
ENDIF.
ENDMODULE.