RHWSTRACKING_LSO SAP ABAP Report - Manual/Mass Learning Progress Synchronization

RHWSTRACKING_LSO is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for You use this report to manually control synchronization of progress made on an external course between the external system and the back-end system (Training Management) of SAP Learning Solution when the learner launches the course...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.

If you would like to execute this report or see the full code listing simply enter RHWSTRACKING_LSO into the relevant SAP transactions such as SE38 or SE80

ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.

Text pool values

INCLUDES used within this REPORT RHWSTRACKING_LSO

INCLUDE: RHAUTHTOP_LSO.
INCLUDE: RHODAT00_LSO.
INCLUDE: RHRDAT20_LSO.
INCLUDE: RHRDAT00.
INCLUDE: RHRDAT10.
INCLUDE: RHALVINC_LSO.
INCLUDE: RHREPVAL.
INCLUDE: RHREPTOP.
INCLUDE RHOINI00_LSO.
INCLUDE RHRINI00.
INCLUDE RHRINI10.
INCLUDE RHRINI20_LSO.

TABLES used within REPORT and the associated SELECT statement:

No SAP DATABASE tables are accessed within this REPORT code!

Function Modules used within report and the associated call statement:

LSO_RHVM_USET_GET_REPORTING
    CALL FUNCTION 'LSO_RHVM_USET_GET_REPORTING'
      IMPORTING
        waers  = waers
      EXCEPTIONS
        OTHERS = 0.

LSO_PART_TYPES_GET
  CALL FUNCTION 'LSO_PART_TYPES_GET'
    TABLES
      patyp_tab = gt_r_partictypes.

RH_READ_OBJECT
    CALL FUNCTION 'RH_READ_OBJECT'
      EXPORTING
        begda     = begda
        endda     = endda
        istat     = '1'
        objid     = kurstyp
        otype     = $kurst
        plvar     = plvar
      IMPORTING
        short     = evtyp_short
        stext     = evtyp_stext
      EXCEPTIONS
        not_found = 01.

LSO_RHVM_USET_SET_REPORTING
  CALL FUNCTION 'LSO_RHVM_USET_SET_REPORTING'
    EXPORTING
      waers               = waers
    EXCEPTIONS
      internal_error      = 0
      invalid_currency    = 1
      currency_is_initial = 0
      OTHERS              = 0.

LSO_WS_USER_TRACKING_READ
    CALL FUNCTION 'LSO_WS_USER_TRACKING_READ'
      EXPORTING
        iv_tpartdoc      = ls_partic-tpartdocno
        iv_read_external = lv_upd_external
      IMPORTING
        et_tracking_data = lt_tracking.

LSO_WS_USER_TRACKING_WRITE
    CALL FUNCTION 'LSO_WS_USER_TRACKING_WRITE'
      EXPORTING
        it_tracking_data = lt_tracking
      IMPORTING
        error_occured    = lv_error.

RH_READ_OBJECT
        CALL FUNCTION 'RH_READ_OBJECT'
          EXPORTING
            plvar  = ls_partic-plvar
            otype  = ls_partic-otype
            objid  = ls_partic-objid
          IMPORTING
            short  = alv_itab-evsht
            stext  = alv_itab-evstx
          EXCEPTIONS
            OTHERS = 2.

RH_READ_OBJECT
        CALL FUNCTION 'RH_READ_OBJECT'
          EXPORTING
            plvar  = ls_partic-plvar
            otype  = ls_partic-sclas
            objid  = parti_id
          IMPORTING
            short  = alv_itab-parsh
            stext  = alv_itab-partx
          EXCEPTIONS
            OTHERS = 2.

LSO_EVENT_DATA_READ
      CALL FUNCTION 'LSO_EVENT_DATA_READ'
        EXPORTING
          plvar            = ls_partic-plvar
          eotyp            = ls_partic-otype
          eveid            = ls_partic-objid
        IMPORTING
          event_data       = ls_eventtype
        EXCEPTIONS
          no_type_assigned = 1
          OTHERS           = 2.

RH_READ_INFTY_1001




    
    
    
    
  





      CALL FUNCTION 'RH_READ_INFTY_1001'
        EXPORTING
         subty                  = 'A036'
*      BEGDA                  = '19000101'
*      ENDDA                  = '99991231'
*      CONDITION              = '00000'
        TABLES
          i1001                 = lt_036
         OBJECTS                = lt_d
       EXCEPTIONS
         OTHERS                 = 4
                .

RH_READ_OBJECT
        CALL FUNCTION 'RH_READ_OBJECT'
          EXPORTING
            plvar  = ls_eventtype-plvar
            otype  = lt_036-sclas
            objid  = org_id
          IMPORTING
            short  = org_shrt
            stext  = alv_itab-ogtxt
          EXCEPTIONS
            OTHERS = 2.

LSO_TRAININGTYPE_GET_TFORM_C
      CALL FUNCTION 'LSO_TRAININGTYPE_GET_TFORM_C'
        EXPORTING
          plvar        = ls_eventtype-plvar
          otype        = ls_eventtype-ettyp
          objid        = ls_eventtype-etyid
        IMPORTING
          trainingform = ls_trainingform
        EXCEPTIONS
          OTHERS       = 4.

RH_READ_INFTY_1001
    CALL FUNCTION 'RH_READ_INFTY_1001'
      EXPORTING
        subty   = cl_lso_const=>relat_specb                 "'B020'
        begda   = pchbegda
        endda   = pchendda
      TABLES
        i1001   = lt_1001
        OBJECTS = lt_trainingtype
      EXCEPTIONS
        OTHERS  = 4.

LSO_TRAINING_GET_TFORM
      CALL FUNCTION 'LSO_TRAINING_GET_TFORM'
        EXPORTING
          plvar                      = ls_training-plvar
          otype                      = ls_training-otype
          objid                      = ls_training-objid
        IMPORTING
          trainingform               = ls_tform
        EXCEPTIONS
          error_occured              = 1
          not_found                  = 2
          no_trainingform_maintained = 3
          OTHERS                     = 4.

LSO_TRAINING_GET_TFORM
        CALL FUNCTION 'LSO_TRAINING_GET_TFORM'
          EXPORTING
            plvar                      = ls_hrvpad614-plvar
            otype                      = ls_hrvpad614-otype
            objid                      = ls_hrvpad614-objid
          IMPORTING
            trainingform               = ls_tform
          EXCEPTIONS
            error_occured              = 1
            not_found                  = 2
            no_trainingform_maintained = 3
            OTHERS                     = 4.

LSO_TRAINING_GET_TFORM
      CALL FUNCTION 'LSO_TRAINING_GET_TFORM'
        EXPORTING
          plvar                      = ls_hrobject-plvar
          otype                      = ls_hrobject-otype
          objid                      = ls_hrobject-objid
        IMPORTING
          trainingform               = ls_tform
        EXCEPTIONS
          error_occured              = 1
          not_found                  = 2
          no_trainingform_maintained = 3
          OTHERS                     = 4.