RHPT_TRAININGPLAN_MODIFY_ADD SAP Function module

RHPT_TRAININGPLAN_MODIFY_ADD is a standard SAP function module available within R/3 SAP systems depending on your version and release level. Below is the pattern details for this FM showing its interface including any import and export parameters, exceptions etc as well as any documentation contributions (Comments) specific to the object.

See here to view full function module documentation and code listing, simply by entering the name RHPT_TRAININGPLAN_MODIFY_ADD into the relevant SAP transaction such as SE37 or SE80.

Associated Function Group: RHPT
Released Date: Not Released
Processing type: Normal fucntion module

Pattern for FM RHPT_TRAININGPLAN_MODIFY_ADD - RHPT TRAININGPLAN MODIFY ADD

CALL FUNCTION 'RHPT_TRAININGPLAN_MODIFY_ADD' "
  EXPORTING
    plvar =                     " hrp1000-plvar
    objid =                     " hrp1000-objid
*   gdate = SY-DATUM            " hrp1000-gdate
*   vtask = 'D'                 " hrrhap-vtask
  TABLES
    station_tab =               " pestations
*   error_tab =                 " pestations
  EXCEPTIONS
    INVALID_OBJECT = 1          "
    INCONSISTENT_PFLICHT_N = 2  "
    MORE_PFLICHT_X_AS_N = 3     "
    MORE_PFLICHT_N_AS_STATIONS = 4  "
    GAP_IN_RANG = 5             "
    INVALID_STATION = 6         "
    INVALID_DATE = 7            "
    NO_AUTHORITY = 8            "
    WRITE_ERROR = 9             "
    .  "  RHPT_TRAININGPLAN_MODIFY_ADD

ABAP code example for Function Module RHPT_TRAININGPLAN_MODIFY_ADD

The ABAP code below is a full code listing to execute function module RHPT_TRAININGPLAN_MODIFY_ADD including all data declarations. The code uses the latest in-line data DECLARATION SYNTAX but I have included an ABAP code snippet at the end to show how declarations would look using the original method of declaring data variables up front. This will allow you to compare and fully understand the new inline method. Please note some of the newer syntax such as the @DATA is not available until a later 4.70 service pack (SP8).

DATA:
it_station_tab  
 
 TYPE STANDARD TABLE OF PESTATIONS,"TABLES PARAM
wa_station_tab
 
 LIKE LINE OF it_station_tab
,
it_error_tab  
 
 TYPE STANDARD TABLE OF PESTATIONS,"TABLES PARAM
wa_error_tab
 
 LIKE LINE OF it_error_tab
.

 

SELECT single PLVAR 
  FROM HRP1000 
  INTO @DATA(ld_plvar).

 

SELECT single OBJID 
  FROM HRP1000 
  INTO @DATA(ld_objid).

 

SELECT single GDATE 
  FROM HRP1000 
  INTO @DATA(ld_gdate).



DATA(ld_vtask) = some text here
 

"populate fields of struture and append to itab
append wa_station_tab to it_station_tab.
 

"populate fields of struture and append to itab
append wa_error_tab to it_error_tab.
.

CALL FUNCTION 'RHPT_TRAININGPLAN_MODIFY_ADD'
  EXPORTING
    plvar =                      ld_plvar
    objid =                      ld_objid
*   gdate =                      ld_gdate
*   vtask =                      ld_vtask
  TABLES
    station_tab =                it_station_tab
*   error_tab =                  it_error_tab
  EXCEPTIONS
    INVALID_OBJECT =             1
    INCONSISTENT_PFLICHT_N =     2
    MORE_PFLICHT_X_AS_N =        3
    MORE_PFLICHT_N_AS_STATIONS =    4
    GAP_IN_RANG =                5
    INVALID_STATION =            6
    INVALID_DATE =               7
    NO_AUTHORITY =               8
    WRITE_ERROR =                9
    .  "  RHPT_TRAININGPLAN_MODIFY_ADD

IF SY-SUBRC EQ 0.
  "All OK
ELSEIF SY-SUBRC EQ 1. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 2. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 3. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 4. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 5. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 6. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 7. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 8. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 9. "Exception
  "Add code for exception here
ENDIF.

ABAP code to compare 7.40 inline data declaration with original syntax

The below ABAP code uses the older none in-line data declarations. This allows you to see the coding differences/benefits of the later inline syntax. It may also be useful if you are using an older version of SAP as some of the newer syntax above, such as the @DATA is not available until 4.70 EHP 8.

DATA:

ld_plvar
 
 TYPE HRP1000-PLVAR ,
it_station_tab
 
 TYPE STANDARD TABLE OF PESTATIONS ,
wa_station_tab
 
 LIKE LINE OF it_station_tab,
ld_objid
 
 TYPE HRP1000-OBJID ,
it_error_tab
 
 TYPE STANDARD TABLE OF PESTATIONS ,
wa_error_tab
 
 LIKE LINE OF it_error_tab,
ld_gdate
 
 TYPE HRP1000-GDATE ,
ld_vtask
 
 TYPE HRRHAP-VTASK .



SELECT single PLVAR 
  FROM HRP1000 
  INTO ld_plvar.
 

"populate fields of struture and append to itab
append wa_station_tab to it_station_tab.

SELECT single OBJID 
  FROM HRP1000 
  INTO ld_objid.
 

"populate fields of struture and append to itab
append wa_error_tab to it_error_tab.

SELECT single GDATE 
  FROM HRP1000 
  INTO ld_gdate.


ld_vtask = some text here