Code For BC400

YPES: bc400_s_flight-carrid, TYPE carrid bc400_s_flight-connid, TYPE connid bc400_s_flight-fldate, TYPE fldate bc400_s_f

Views 156 Downloads 6 File size 8KB

Report DMCA / Copyright

DOWNLOAD FILE

Recommend stories

Citation preview

YPES: bc400_s_flight-carrid, TYPE carrid bc400_s_flight-connid, TYPE connid bc400_s_flight-fldate, TYPE fldate bc400_s_flight-seatsmax, TYPE seatsmax bc400_s_flight-seatsocc, TYPE seatsocc bc400_s_flight-percentage, TYPE percentage bc400_s_carrier-carrname, TYPE carrname bc400_s_carrier-currcode, TYPE currcode bc400_s_carrier-url, TYPE url gty_s_carrierflight. OF END gty_s_carrierflight. TYPE gs_carrierflight DATA: data Get * TRY. cl_bc400_flightmodel=>get_flight METHOD CALL EXPORTING pa_car = iv_carrid pa_con = iv_connid pa_date = iv_fldate IMPORTING gs_flight. = es_flight cl_bc400_flightmodel=>get_carrier METHOD CALL EXPORTING pa_car = iv_carrid IMPORTING gs_carrier. = es_carrier . cx_bc400_no_data CATCH found!'(ndf). data 'No WRITE: . cx_bc400_no_auth CATCH carrier!'(nau). this for authority 'No WRITE: ENDTRY. gs_carrierflight Fill * gs_carrierflight. TO gs_carrier MOVE-CORRESPONDING gs_carrierflight. TO gs_flight MOVE-CORRESPONDING INITIAL. NOT IS gs_carrierflight IF , / WRITE: gs_carrierflight-connid, gs_carrierflight-fldate, gs_carrierflight-carrname, gs_carrierflight-currcode, gs_carrierflight-seatsmax, gs_carrierflight-seatsocc, '%', gs_carrierflight-percentage, gs_carrierflight-url. ENDIF