SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Журнал приложений: сохранение и загрузка журналов



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> Programming Techniques | Приемы программирования -> Arch & Logs
View previous topic :: View next topic  
Author Message
admin
Администратор
Администратор



Joined: 01 Sep 2007
Posts: 1637

PostPosted: Sat Apr 12, 2008 1:01 pm    Post subject: Журнал приложений: сохранение и загрузка журналов Reply with quote

Code:
REPORT sbal_demo_04 MESSAGE-ID bl.
***********************************************************************
***********************************************************************
*                   REPORT SBAL_DEMO_05
*
* This report demonstrates the database related features of the
* application log. This report calcuates invoices for
* all flights which took place on a certain date.
* The user can choose between three different options:
*
*  1. carry out calculation run in simulation mode (nothing is saved)
*     - invoices are calculated but not yet saved
*       they have temporal document numbers
*       many errors and messages are created containing these numbers
*     - logs are displayed. All messages contain these numbers

*  2. carry out this calculation run in real mode (logs are saved)
*     - invoices are calculated but not yet saved
*       they have temporal document numbers
*       many errors and messages are created containing these numbers
*     - database numbers for all these invoices are derived
*       and replaced in theses documents
*     - all messages containing these numbers are changed
*       (BAL_DB_SAVE_PREPARE)
*     - logs are saved on DB (BAL_DB_SAVE)
*     - logs are displayed. All messages contain the final
*       document numbers
*
*  3. show logs for all calculation runs which have been created
*     so far (for all flights on the date specified):
*     - BAL_DB_SEARCH          Searches for logs on the database
*     - BAL_DB_LOAD            Loads these logs from the database
*
***********************************************************************
***********************************************************************


***********************************************************************
******************** SELECTION SCREEN *********************************
***********************************************************************
SELECTION-SCREEN BEGIN OF BLOCK B01 WITH FRAME TITLE text-001.
PARAMETERS:
  p_fldate     TYPE bal_fldate DEFAULT sy-datum.
SELECTION-SCREEN END OF BLOCK B01.
SELECTION-SCREEN BEGIN OF BLOCK B02 WITH FRAME TITLE text-002.
PARAMETERS:
  p_simu RADIOBUTTON GROUP sel DEFAULT 'X',
  p_real RADIOBUTTON GROUP sel,
  p_logs RADIOBUTTON GROUP sel.
SELECTION-SCREEN END OF BLOCK B02.


***********************************************************************
******************** CONSTANTS, TYPES, DATA ***************************
***********************************************************************
* all logs are saved with this application object:
CONSTANTS:
  const_object_flight_invoice TYPE bal_s_log-object VALUE 'BCT1'.
* an invoice for a flight (in principle)
TYPES:
  BEGIN OF s_invoice,
    number   TYPE bal_s_ex03-invoice,
    data     TYPE c,
    error    TYPE c,
  END   OF s_invoice,
 t_invoice TYPE s_invoice OCCURS 0.
* global data
DATA:
  g_t_invoice                  TYPE t_invoice,
  g_temporal_invoice_number(4) TYPE n,
  g_final_invoice_number(10)   TYPE n VALUE '1060077890',
  g_t_replace_message          TYPE bal_t_rplv,
  g_t_replace_context          TYPE bal_t_rplc,
  g_extnum                     TYPE bal_s_log-extnumber,
  g_r_object                   TYPE bal_s_obj,
  g_r_extnumber                TYPE bal_s_extn,
  g_s_log_filter               TYPE bal_s_lfil,
  g_t_log_header               TYPE balhdr_t.


***********************************************************************
******************** MAIN PROGRAM *************************************
***********************************************************************
END-OF-SELECTION.
*****************************************************************
* create external number which is used to select logs later on
*****************************************************************
* in this case a calculation run is characterized by the date
* for which it is carried out
  g_extnum = p_fldate.


*****************************************************************
* carry out invoice calculation in simulation mode
*****************************************************************
  IF NOT p_simu IS INITIAL.
*   calculate flights
    PERFORM calculate_flights
              USING
                p_fldate
                g_extnum
              CHANGING
                g_t_invoice.
*   display log files which have been created
    PERFORM display_logs USING 'X'.
  ENDIF.


*****************************************************************
* carry out invoice calculation in real mode
*****************************************************************
  IF NOT p_real IS INITIAL.
*   calculate flights
    PERFORM calculate_flights
              USING
                p_fldate
                g_extnum
              CHANGING
                g_t_invoice.
*   derive new numbers for all created invoices
    PERFORM invoice_save_prepare
              CHANGING
                g_t_invoice
                g_t_replace_message
                g_t_replace_context.
*   replace numbers in logs
    CALL FUNCTION 'BAL_DB_SAVE_PREPARE'
         EXPORTING
              i_replace_in_all_logs         = 'X'
              i_t_replace_message_variables = g_t_replace_message
              i_t_replace_context_fields    = g_t_replace_context
         EXCEPTIONS
              log_not_found                 = 0
              OTHERS                        = 1.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
*   save logs
    CALL FUNCTION 'BAL_DB_SAVE'
         EXPORTING
              i_save_all = 'X'
         EXCEPTIONS
              OTHERS     = 1.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
*   display log files which have been created
    PERFORM display_logs USING 'X'.
  ENDIF.


*****************************************************************
* show logs of previous invoice calculations
*****************************************************************
  IF NOT p_logs IS INITIAL.
*   create a filter with all relevant criteria:
    g_r_object-sign   = 'I'.
    g_r_object-option = 'EQ'.
    g_r_object-low    = const_object_flight_invoice.
    APPEND g_r_object TO g_s_log_filter-object.
    g_r_extnumber-sign   = 'I'.
    g_r_extnumber-option = 'EQ'.
    g_r_extnumber-low    = p_fldate.
    APPEND g_r_extnumber TO g_s_log_filter-extnumber.
*   search on DB for these logs
    CALL FUNCTION 'BAL_DB_SEARCH'
         EXPORTING
              i_s_log_filter = g_s_log_filter
         IMPORTING
              e_t_log_header = g_t_log_header
         EXCEPTIONS
              OTHERS         = 0.
*   load logs from DB
    CALL FUNCTION 'BAL_DB_LOAD'
         EXPORTING
              i_t_log_header = g_t_log_header
         EXCEPTIONS
              OTHERS         = 0.
*   display logs
    PERFORM display_logs USING ' '.
  ENDIF.


***********************************************************************
******************** FORMS ********************************************
***********************************************************************
*--------------------------------------------------------------------
* FORM display_logs
*--------------------------------------------------------------------
FORM display_logs USING value(i_show_all) TYPE c.
  DATA:
    l_s_display_profile TYPE bal_s_prof,
    l_s_fcat            TYPE bal_s_fcat.


* create a display profile
  WRITE p_fldate TO l_s_display_profile-root_text.
  CONCATENATE 'Abrechnungslфufe fќr alle Flќge vom'(003)
               l_s_display_profile-root_text
               INTO l_s_display_profile-root_text
               SEPARATED BY space.

  l_s_display_profile-head_size = 57.
  l_s_display_profile-show_all = i_show_all.
  IF i_show_all = 'X'.
    l_s_display_profile-exp_level = 1.
  ENDIF.
  CLEAR l_s_fcat.
  l_s_fcat-ref_table = 'BAL_S_SHOW'.
  l_s_fcat-ref_field = 'ALDATE'.
  l_s_fcat-cltxt_add = 'X'.
  l_s_fcat-coltext   = 'Durchgefќhrt am'(004).
  APPEND l_s_fcat TO l_s_display_profile-lev1_fcat.
  CLEAR l_s_fcat.
  l_s_fcat-ref_table = 'BAL_S_SHOW'.
  l_s_fcat-ref_field = 'ALTIME'.
  APPEND l_s_fcat TO l_s_display_profile-lev1_fcat.
  CLEAR l_s_fcat.
  l_s_fcat-ref_table = 'BAL_S_EX03'.
  l_s_fcat-ref_field = 'CARRID'.
  l_s_fcat-cltxt_add = 'X'.
  APPEND l_s_fcat TO l_s_display_profile-lev2_fcat.
  CLEAR l_s_fcat.
  l_s_fcat-ref_table = 'BAL_S_EX03'.
  l_s_fcat-ref_field = 'CONNID'.
  l_s_fcat-cltxt_add = 'X'.
  APPEND l_s_fcat TO l_s_display_profile-lev3_fcat.
  CLEAR l_s_fcat.
  l_s_fcat-ref_table = 'BAL_S_EX03'.
  l_s_fcat-ref_field = 'INVOICE'.
  l_s_fcat-cltxt_add = 'X'.
  APPEND l_s_fcat TO l_s_display_profile-lev4_fcat.
  CLEAR l_s_fcat.
  l_s_fcat-ref_table = 'BAL_S_EX03'.
  l_s_fcat-ref_field = 'INVOICE'.
  APPEND l_s_fcat TO l_s_display_profile-mess_fcat.
  CLEAR l_s_fcat.
  l_s_fcat-ref_table = 'BAL_S_SHOW'.
  l_s_fcat-ref_field = 'T_MSG'.
  l_s_fcat-outputlen = 70.
  APPEND l_s_fcat TO l_s_display_profile-mess_fcat.
  l_s_display_profile-disvariant-report = sy-repid.
* when you use also other ALV lists in your report,
* please specify a handle to distinguish between the display
* variants of these different lists, e.g:
  l_s_display_profile-disvariant-handle = 'LOG'.

  CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'
       EXPORTING
            i_s_display_profile = l_s_display_profile
       EXCEPTIONS
            OTHERS              = 1.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

ENDFORM.

*--------------------------------------------------------------------
* FORM invoice_save_prepare
*--------------------------------------------------------------------
FORM invoice_save_prepare
       CHANGING
         c_t_invoice         TYPE t_invoice
         c_t_replace_message TYPE bal_t_rplv
         c_t_replace_context TYPE bal_t_rplc.

  DATA:
    l_s_replace_message TYPE bal_s_rplv,
    l_s_replace_context TYPE bal_s_rplc.
  FIELD-SYMBOLS:
    <l_s_invoice>       TYPE s_invoice.


  LOOP AT c_t_invoice ASSIGNING <l_s_invoice>.

*   prepare replace pattern for messages variables and context fields
    l_s_replace_context-tabname   = 'BAL_S_EX03'.
    l_s_replace_context-fieldname = 'INVOICE'.
    l_s_replace_context-old_value = <l_s_invoice>-number.
    l_s_replace_message-msgv_src  = space.
    l_s_replace_message-old_value = <l_s_invoice>-number.

*   derive final number for invoices
    ADD 1 TO g_final_invoice_number.

*   put result into invoice
    <l_s_invoice>-number = g_final_invoice_number.

*   record new invoice number
    l_s_replace_context-new_value = <l_s_invoice>-number.
    APPEND l_s_replace_context TO c_t_replace_context.
    l_s_replace_message-new_value = <l_s_invoice>-number.
    APPEND l_s_replace_message TO c_t_replace_message.

  ENDLOOP.

ENDFORM.
*--------------------------------------------------------------------
* FORM calculate_flights
*--------------------------------------------------------------------
FORM calculate_flights
       USING
         value(i_fldate)      TYPE bal_s_ex03-fldate
         value(i_extnum)      TYPE c
       CHANGING
         c_t_invoice          TYPE t_invoice.

  DATA:
    l_carrid                     TYPE bal_s_ex03-carrid,
    l_connid                     TYPE bal_s_ex03-connid.

* carry out invoice calculation for all airlines (in this case 4)
  DO 4 TIMES.
    CASE sy-index.
      WHEN 1. l_carrid = 'SF'.
      WHEN 2. l_carrid = 'AB'.
      WHEN 3. l_carrid = 'XY'.
      WHEN 4. l_carrid = 'AP'.
    ENDCASE.

*   for each airline calculate invoices for all connections
    DO 3 TIMES.
      l_connid = sy-index.
      PERFORM calculate_flight
                USING
                  l_carrid
                  l_connid
                  i_fldate
                  i_extnum
                CHANGING
                  c_t_invoice.

    ENDDO.

  ENDDO.

ENDFORM.
*--------------------------------------------------------------------
* FORM calculate_flight
*--------------------------------------------------------------------
FORM calculate_flight
       USING
         value(i_carrid)      TYPE bal_s_ex03-carrid
         value(i_connid)      TYPE bal_s_ex03-connid
         value(i_fldate)      TYPE bal_s_ex03-fldate
         value(i_extnum)      TYPE c
       CHANGING
         c_t_invoice          TYPE t_invoice.

  DATA:
    l_log_handle         TYPE balloghndl,
    l_s_log              TYPE bal_s_log,
    l_s_invoice          TYPE s_invoice,
    l_create_new_invoice TYPE i,
    l_passenger_id       TYPE bal_s_ex03-id,
    l_s_mdef             TYPE bal_s_mdef,
    l_s_context          TYPE bal_s_ex03,
    l_dummy              TYPE c.       "#EC NEEDED


********************************************************************
* create  log file
********************************************************************
  l_s_log-object     = const_object_flight_invoice.
  l_s_log-extnumber  = i_extnum.
  CALL FUNCTION 'BAL_LOG_CREATE'
       EXPORTING
            i_s_log      = l_s_log
       IMPORTING
            e_log_handle = l_log_handle
       EXCEPTIONS
            OTHERS       = 1.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.


********************************************************************
* for all passengers create invoices
********************************************************************
  l_create_new_invoice = 0.
  DO 40 TIMES.
*   derive passenger id
    l_passenger_id = sy-index.

********************************************************************
*   when a new invoice is to be created derive a new number
********************************************************************
    IF l_create_new_invoice = 0.
      ADD 1 TO g_temporal_invoice_number.
      CONCATENATE '$' g_temporal_invoice_number INTO l_s_invoice-number.
    ENDIF.


********************************************************************
*   set defaults for all following messages
********************************************************************
    l_s_mdef-log_handle = l_log_handle.
    l_s_context-carrid  = i_carrid.
    l_s_context-connid  = i_connid.
    l_s_context-fldate  = i_fldate.
    l_s_context-invoice = l_s_invoice-number.
    l_s_mdef-context-tabname = 'BAL_S_EX03'.
    l_s_mdef-context-value   = l_s_context.
    CALL FUNCTION 'BAL_GLB_MSG_DEFAULTS_SET'
         EXPORTING
              i_s_msg_defaults = l_s_mdef
         EXCEPTIONS
              OTHERS           = 0.


********************************************************************
*   add data for this passenger to this invoice
********************************************************************
*   ....


********************************************************************
*   some activities for this invoice might fail and cause errors:
********************************************************************
    IF     i_carrid = 'AB' AND i_connid = 2 AND l_passenger_id = 15.
*     318(BL): 'Calculation impossible. Passenger &1 did not confirm'
      MESSAGE w318 WITH l_passenger_id INTO l_dummy.
      PERFORM msg_add.
      l_s_invoice-error = 'X'.
    ELSEIF i_carrid = 'XY' AND i_connid = 3 AND l_passenger_id = 22.
*     321(BL): 'Address data for passenger &1 in invoice &2 incomplete'
      MESSAGE e321 WITH l_passenger_id l_s_invoice-number INTO l_dummy.
      PERFORM msg_add.
      l_s_invoice-error = 'X'.
    ELSEIF i_carrid = 'SF' AND i_connid = 1 AND l_passenger_id = 10.
*     323(BL): 'New pricing: Special prices in document &1 invalid'
      MESSAGE w323 WITH l_s_invoice-number INTO l_dummy.
      PERFORM msg_add.
      l_s_invoice-error = 'X'.
    ELSEIF i_carrid = 'SF' AND i_connid = 2 AND l_passenger_id = 5.
*     322(BL): 'Invoice &1 is not complete'
      MESSAGE e322 WITH l_s_invoice-number INTO l_dummy.
      PERFORM msg_add.
      l_s_invoice-error = 'X'.
    ENDIF.


********************************************************************
*   is a new invoice to be created ?
********************************************************************
    l_create_new_invoice = l_passenger_id MOD 9.
    IF l_create_new_invoice = 0.
      PERFORM invoice_add USING l_s_invoice CHANGING c_t_invoice.
      CLEAR l_s_invoice.
    ENDIF.

  ENDDO.
  IF NOT l_s_invoice IS INITIAL.
    PERFORM invoice_add USING l_s_invoice CHANGING c_t_invoice.
    CLEAR l_s_invoice.
  ENDIF.
ENDFORM.
*--------------------------------------------------------------------
* FORM MSG_ADD
*--------------------------------------------------------------------
FORM invoice_add
       USING
         i_s_invoice   TYPE s_invoice
       CHANGING
         c_t_invoice   TYPE t_invoice.

  DATA:
    l_dummy            TYPE c.         "#EC NEEDED

* put the invoice to table of invoices
  APPEND i_s_invoice TO c_t_invoice.
  IF i_s_invoice-error IS INITIAL.
*   324(BL): 'Invoice &1 was successfully created'
    MESSAGE s324(bl) WITH i_s_invoice-number INTO l_dummy.
    PERFORM msg_add.
  ENDIF.

ENDFORM.
*--------------------------------------------------------------------
* FORM MSG_ADD
*--------------------------------------------------------------------
FORM msg_add.
  DATA:
    l_s_msg TYPE bal_s_msg.

* define data of message for Application Log
  l_s_msg-msgty     = sy-msgty.
  l_s_msg-msgid     = sy-msgid.
  l_s_msg-msgno     = sy-msgno.
  l_s_msg-msgv1     = sy-msgv1.
  l_s_msg-msgv2     = sy-msgv2.
  l_s_msg-msgv3     = sy-msgv3.
  l_s_msg-msgv4     = sy-msgv4.
* ... see structure BAL_S_LOG or report SBAL_DEMO_02 for ...
* ... further data which can be added to a message       ...

* add this message to log file
* (I_LOG_HANDLE is not specified, we want to add to the default log.
*  If it does not exist we do not care =>EXCEPTIONS log_not_found = 0)
  CALL FUNCTION 'BAL_LOG_MSG_ADD'
       EXPORTING
*           I_LOG_HANDLE  =
            i_s_msg       = l_s_msg
       EXCEPTIONS
            log_not_found = 0
            OTHERS        = 1.
  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.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> Programming Techniques | Приемы программирования -> Arch & Logs All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.