Code: Alles auswählen.
Form Modify.
LOOP AT gt_sflight into gl_sflight.
PERFORM Aufruf
CHANGING gl_sflight-planetype.
Modify gt_sflight from gl_sflight.
ENDLOOP.
Endform.
Form Aufruf.
?
CALL FUNCTION 'Z_CR99_READ_SFLIGHT'
EXPORTING
iv_carrid = ?
IMPORTING
et_sflight = gt_sflight
EXCEPTIONS
no_flights = 1
OTHERS
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.
Code: Alles auswählen.
Form Modify.
LOOP AT gt_sflight into gl_sflight.
PERFORM Aufruf
CHANGING gl_sflight.
Modify gt_sflight from gl_sflight.
ENDLOOP.
Endform.
Form Aufruf changing cs_sflight type sflight.
CALL FUNCTION 'Z_CR99_READ_SFLIGHT'
* EXPORTING
* iv_carrid = ?
* IMPORTING
* et_sflight = gt_sflight
CHANGING
cs_sflight = cs_sflight
EXCEPTIONS
no_flights = 1
OTHERS
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.