ABAP logger - slg0 / slg1

slg0/slg1








*&---------------------------------------------------------------------*
*& Report  ZQC_TESTCLLOG
*&
*&---------------------------------------------------------------------*
*& Copied from Anil's source code
*&
*&---------------------------------------------------------------------*
REPORT ZQC_TESTCLLOG.
DATA: log TYPE REF TO zcl_logger.
DATA dummy.

START-OF-SELECTION.

* easy way
  log = zcl_logger=>new( object = 'ZQCTEST'
                         subobject = 'QUANG'
                         desc = 'Log message created by z program' ).

  log->e( 'Example of a simple error log.' ).

*  Log a string!
  log->s( 'Document 4800095710 created successfully' ).

*Log a bapi return message!

  DATA: ls_rtn TYPE bapiret2.
  log->add( ls_rtn ).

*Log a table of bapi return messages!

  DATA: lt_msgs TYPE TABLE OF bapiret2.
  log->add( lt_msgs ).

* Log the current system message.
  MESSAGE e002(oo) WITH 'Order' '123'  INTO dummy.
  log->add( ). "you don't even need to pass anything - wil default to sy-msg etc


  DATA: lt_bapiret     TYPE bapirettab.

*  DATA RT_BAPIRET TYPE BAPIRETTAB.

  CALL METHOD log->export_to_table
    RECEIVING
      rt_bapiret = lt_bapiret.


  WRITE :'done'.

**Log an exception
*
*  TRY.
*      rubber_band_powered_spaceship=>fly_to( the_moon ).
*    CATCH zcx_not_enough_power INTO err.
*      log->e( err ).

*  ENDTRY.