*&---------------------------------------------------------------------*
*& Report FLIGHT_MODEL_DATA_GENERATOR *
*& *
*&---------------------------------------------------------------------*
*& This report generates standard entries in all *
*& database tables that are specified below *
*&---------------------------------------------------------------------*
REPORT flight-model_data_generator LINE-SIZE 250.
*-----------------------------------------------------------------------
* data definitions
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
* used database tables
*-----------------------------------------------------------------------
TABLES: scarr, spfli, sflight, saplane, sgeocity, sairport,
scustom, sbook, scurx, scurr, sbuspart, scounter,
bfuser_typ.
*-----------------------------------------------------------------------
* global constants
*-----------------------------------------------------------------------
* conversion factor miles - > km
CONSTANTS: mifactor(3) TYPE p DECIMALS 2 VALUE '1.6'.
* threshold for random numbers. If number lower ...
CONSTANTS: limit_cancelled TYPE i VALUE 20, " ... booking cancelled
limit_counter TYPE i VALUE 40, " ... booking via counter
limit_smoker TYPE i VALUE 30, " ... smoker
limit_invoice TYPE i VALUE 90. " ... invoice sent
*-----------------------------------------------------------------------
* definition of global data fields
*-----------------------------------------------------------------------
DATA: fldate TYPE d.
DATA price LIKE sflight-price.
DATA counter TYPE i.
DATA distance LIKE spfli-distance.
DATA date TYPE d.
DATA date_flag.
*
* counter
*
DATA counter1 TYPE i.
DATA counter2 TYPE i.
DATA counter3 TYPE i.
DATA counter4 TYPE i.
DATA counter5 TYPE i.
DATA counter6 TYPE i.
DATA anz_count TYPE i.
DATA idx_count TYPE i.
*
* auxiliary fields
*
DATA max_count TYPE i.
DATA loop_count TYPE i.
DATA order_date TYPE d.
DATA pay TYPE p DECIMALS 2.
DATA book_count TYPE i.
DATA curr_date TYPE d.
DATA paymentsum TYPE p DECIMALS 2.
DATA read_idx LIKE sy-tabix.
DATA random_index LIKE sy-index.
DATA: counter_per_airport TYPE i,
max_per_airport TYPE i.
DATA: agency_index LIKE sy-index,
max_agency_index LIKE sy-index.
*
DATA: conversion_counter_1 TYPE i,
conversion_counter_2 TYPE i,
conversion_counter_3 TYPE i.
DATA: l_answer TYPE c. "answer field for POPUP_TO_CONFIRM
*-----------------------------------------------------------------------
* definition of the internal tables which are
* used to fill the database tables
*
* names for internal tables:
* name of the internal table = i<dbtab_name>
* <dbtab_name> = name of database table
*-----------------------------------------------------------------------
DATA: iscurx LIKE STANDARD TABLE OF scurx
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: iscurr LIKE STANDARD TABLE OF scurr
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: iscarr LIKE STANDARD TABLE OF scarr
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: isgeocity LIKE STANDARD TABLE OF sgeocity
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: isairport LIKE STANDARD TABLE OF sairport
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: isaplane LIKE STANDARD TABLE OF saplane
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: iscarplan LIKE STANDARD TABLE OF scarplan
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: iscitairp LIKE STANDARD TABLE OF scitairp
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: isbuspart LIKE STANDARD TABLE OF sbuspart
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: iscustom LIKE STANDARD TABLE OF scustom
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: istravelag LIKE STANDARD TABLE OF stravelag
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: iscounter LIKE STANDARD TABLE OF scounter
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: ismeal LIKE STANDARD TABLE OF smeal
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: ismenu LIKE STANDARD TABLE OF smenu
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: ispfli LIKE STANDARD TABLE OF spfli
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: isflight LIKE STANDARD TABLE OF sflight
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: isflimeal LIKE STANDARD TABLE OF sflimeal
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: isbook LIKE STANDARD TABLE OF sbook
WITH DEFAULT KEY
WITH HEADER LINE.
*-----------------------------------------------------------------------
* auxiliary tables for currency conversion rates
*-----------------------------------------------------------------------
DATA: hscurr LIKE STANDARD TABLE OF scurr "Initial data for iscurr
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: hcurr1 LIKE STANDARD TABLE OF scurx "help array with currcodes
WITH DEFAULT KEY
WITH HEADER LINE.
DATA: hcurr2 LIKE STANDARD TABLE OF scurx "help array with currcodes
WITH DEFAULT KEY
WITH HEADER LINE.
DATA help_ukurs LIKE scurr-ukurs."help field for currency conv. factors
*-----------------------------------------------------------------------
* data definition of auxiliary fields to fill isgeocity
*-----------------------------------------------------------------------
TYPES: degree(3) TYPE c,
minute(2) TYPE c,
orient(1) TYPE c.
DATA: BEGIN OF i_h_geo OCCURS 0,
city LIKE sgeocity-city, " city
country LIKE sgeocity-country, " country
lat_deg TYPE degree, " langitude degrees
lat_min TYPE minute, " langitude minutes
lat_ori TYPE orient, " langitude orientation: N, W
lon_deg TYPE degree, " latitude degrees
lon_min TYPE minute, " latitude minutes
lon_ori TYPE orient, " latitude orientation: S, E
END OF i_h_geo.
* help table to fill sbispart: contains numbers of travel agencies
DATA: BEGIN OF help_num OCCURS 30,
num LIKE sbuspart-buspartnum,
END OF help_num.
*-----------------------------------------------------------------------
* data definition of auxiliary fields to fill the table sbook
*-----------------------------------------------------------------------
DATA: number TYPE i OCCURS 0 WITH HEADER LINE.
DATA: anz TYPE i OCCURS 0 WITH HEADER LINE.
DATA: idx TYPE i OCCURS 0 WITH HEADER LINE.
DEFINE a. "scustom-ids
number = &1. append number.
number = &2. append number.
number = &3. append number.
number = &4. append number.
number = &5. append number.
number = &6. append number.
number = &7. append number.
number = &8. append number.
number = &9. appen
ABAP源代码-初学者参考 abap source codes.rar （112个子文件） 
S_FLIGHT_MODEL_DATA_GENERATOR.txt 395KB S_TABLE_CONTROL.txt 15KB S_GUI_CONTROLS.txt 9KB S_CHANGE_PLANETYPEF01.txt 3KB S_INTERACTIVE_LISTS.txt 3KB S_POLYMOPHISM_VIA_INHERITANCE.txt 3KB S_ABAP_OBJECTS_EVENTS.txt 2KB S_ITAB_EXAMPLE.txt 2KB S_SELECT_DISPLAY_SFLIGHT.txt 2KB S_FIRST_PROGRAM.txt 2KB S_WS_DOWNLOAD_UPLOAD.txt 2KB S_TABSTRIP.txt 2KB S_CHANGE_PLANETYPEI01.txt 2KB S_DROPDOWN_LIST_BOX.txt 2KB S_SCREEN_PAINTER_DEMO.txt 2KB S_SELECTION_SCREEN_FUNCTION.txt 2KB S_WIDENING_CAST.txt 2KB S_LIST_DISPLAY.txt 2KB S_INTERFACE_POLYMORPHISM.txt 2KB S_METHOD_REDEFINITION.txt 1KB S_DYNAMIC_DATA_OBJECTS.txt 1KB S_SELECTION_SCREEN_DEMO.txt 1KB S_SELECTION_SCREEN_CHECK.txt 1KB S_CLASS_ABSTRACT.txt 1KB S_INHERITANCE_CONSTRUCTORS.txt 1KB S_ITAB_ACCESS.txt 1KB S_SIMPLE_INHERITANCE.txt 1KB S_EXPORT_IMPORT_DATABASE.txt 1KB S_PROCESSING_BLOCKS_COMPLETE.txt 1KB S_PERFORM.txt 1KB S_DYNAMIC_METHOD_CALL.txt 1KB S_SELECT_FOR_ALL_ENTRIES.txt 1KB S_SELF_REFERENCE.txt 1012B S_OPEN_TRANSFER_CLOSE.txt 1009B S_SELECT_OPTIONS.txt 957B S_INTERFACE_WIDENING_2.txt 950B S_INTERFACE_WIDENING_1.txt 934B S_SELECT_INNER_JOIN.txt 927B S_CHANGE_PLANETYPE.txt 864B S_SELECT_NESTED.txt 827B S_INTERFACE_REFERENCE.txt 821B S_VERY_FIRST_PROGRAM.txt 818B S_SELECT_JOIN.txt 809B S_FUNCTIONAL_METHOD.txt 807B S_INTERFACE_ALIAS.txt 801B S_EXPORT_TO_MEMORY.txt 795B S_PROCESSING_BLOCKS.txt 792B S_PERFORM_GLOBAL.txt 778B S_SEVERAL_OBJECTS.txt 763B S_INTERFACE_DEFINITION.txt 761B S_INCLUDE_STRUCTURE.txt 739B S_IMPORT_FROM_MEMORY.txt 738B S_INTERFACE_NARROWING_CAST.txt 728B S_SEARCH.txt 722B S_SELECT_VIEW.txt 720B S_CALL_FUNCTION.txt 661B S_SEVERAL_REFERENCES.txt 658B S_OPEN_CURSOR.txt 645B S_FIRST_OBJECT.txt 616B S_CHANGE_PLANETYPEO01.txt 615B S_GARBAGE_COLLECTOR.txt 603B S_CLASS_METHODS.txt 595B S_NATIVE_SQL.txt 567B S_STRUCTURED_DATA.txt 565B S_SELECT_WHERE_IN_SELOPT.txt 563B S_WHILE_ENDWHILE.txt 562B S_GENERIC_FIELD_SYMBOL.txt 541B S_OFFSET_LENGTH.txt 497B S_USING_MACROS.txt 481B S_ABAP_OBJECTS_LIST.txt 472B S_FIELD_SYMBOLS_FOR_SECTIONS.txt 467B S_SELECT_CORRESPONDING.txt 439B S_CONVERSION_ERRORS.txt 434B S_DYNAMIC_ACCESS_TO_COMPONENTS.txt 433B S_DATA_REFERENCE.txt 431B S_FIELD_SYMBOLS_CASTING_TYPE.txt 431B S_SIMPLE_FORMS.txt 420B S_SELECT_SINGLE_INTO_LIST.txt 414B S_AUTHORITY_CHECK.txt 398B S_DATE_TIME.txt 385B S_RTTI.txt 379B S_SELECT_SINGLE_CORRESPONDING.txt 376B S_DESCRIBE_FIELD.txt 353B S_SELECT_INTO_LIST.txt 350B S_GLOBAL_CLASS_USAGE.txt 348B S_STATIC_ATTRIBUTES.txt 336B S_SELECT_SINGLE_ALL.txt 328B S_CHANGE_PLANETYPETOP.txt 328B S_RUNTIME_ERROR.txt 320B S_CASE_ENDCASE.txt 312B S_FIELD_SYMBOLS_CASTING.txt 308B S_CHANGE_PLANETYPEE01.txt 301B S_IF_ENDIF.txt 300B S_ITAB_ARRAY.txt 264B S_MOVE_CORRESPONDING.txt 263B S_SELECT_ALL.txt 258B S_OBJECT_OF_FUNCTION_POOL.txt 254B S_SPLIT.txt 251B S_EXTRACT.txt 251B S_ELEMENTARY_DATA.txt 225B共 112 条
- 1
- 2
资源评论
qqACan2013-06-28初学者可以看看
nacunacu2014-12-29好东西啊,可以学习一下- gaolinux2012-11-06基础ABAP学习资料，想要掌握还是需要多时间才可以。概述非常详细。
