SAP CTMS_OBJECT_HAS_FIRST_CLASS Function Module for
CTMS_OBJECT_HAS_FIRST_CLASS is a standard ctms object has first class SAP function module available within SAP R/3 or S/4 Hana systems, depending on your version and release level. It is used to perform a specific ABAP function and below is the pattern details, showing its interface including any import and export parameters, exceptions etc. there is also a full "cut and paste" ABAP pattern code example, along with implementation ABAP coding, documentation and contribution comments specific to this or related objects.
See here to view full function module documentation and code listing for ctms object has first class FM, simply by entering the name CTMS_OBJECT_HAS_FIRST_CLASS into the relevant SAP transaction such as SE37 or SE38.
Function Group: CTMS
Program Name: SAPLCTMS
Main Program: SAPLCTMS
Appliation area: M
Release date: N/A
Mode(Normal, Remote etc): Normal Function Module
Update:

Function CTMS_OBJECT_HAS_FIRST_CLASS pattern details
In-order to call this FM within your sap programs, simply using the below ABAP pattern details to trigger the function call...or see the full ABAP code listing at the end of this article. You can simply cut and paste this code into your ABAP progrom as it is, including variable declarations.CALL FUNCTION 'CTMS_OBJECT_HAS_FIRST_CLASS'".
EXPORTING
OBJECT = "Object key
TABLE = "Table of classifiable object
* CLASSTYPE = "Class type
* WITH_TEXT = 'X' "X = read with class description
* DATE_OF_CHANGE = SY-DATUM "Change date
IMPORTING
CLASS = "Class
CLASSTEXT = "Class description
CLASSTYPE = "Class type
CLINT = "Internal class number
EXCEPTIONS
NO_CLASSIFICATION = 1 TABLE_NOT_ALLOWED = 2 INTERNAL_ERROR = 3
Customer Function user exits
Below is a list of CUSTOMER FUNCTION exit user exits that are available within this program and maybe relevant for this FM.EXIT_SAPLCTMS_001 Set Default Values
EXIT_SAPLCTMS_002 Check for Same Classification
EXIT_SAPLCTMS_003 Object Dependencies When Finding Objects
EXIT_SAPLCTMS_999 Dummy User Exit
IMPORTING Parameters details for CTMS_OBJECT_HAS_FIRST_CLASS
OBJECT - Object key
Data type: KSSK-OBJEKOptional: No
Call by Reference: No ( called with pass by value option)
TABLE - Table of classifiable object
Data type: TCLT-OBTABOptional: No
Call by Reference: No ( called with pass by value option)
CLASSTYPE - Class type
Data type: KLAH-KLARTOptional: Yes
Call by Reference: No ( called with pass by value option)
WITH_TEXT - X = read with class description
Data type:Default: 'X'
Optional: Yes
Call by Reference: No ( called with pass by value option)
DATE_OF_CHANGE - Change date
Data type: RMCLF-DATUV1Default: SY-DATUM
Optional: Yes
Call by Reference: No ( called with pass by value option)
EXPORTING Parameters details for CTMS_OBJECT_HAS_FIRST_CLASS
CLASS - Class
Data type: KLAH-CLASSOptional: No
Call by Reference: No ( called with pass by value option)
CLASSTEXT - Class description
Data type: SWOR-KSCHLOptional: No
Call by Reference: No ( called with pass by value option)
CLASSTYPE - Class type
Data type: KLAH-KLARTOptional: No
Call by Reference: No ( called with pass by value option)
CLINT - Internal class number
Data type: KLAH-CLINTOptional: No
Call by Reference: No ( called with pass by value option)
EXCEPTIONS details
NO_CLASSIFICATION - No allocations
Data type:Optional: No
Call by Reference: No ( called with pass by value option)
TABLE_NOT_ALLOWED - Table not found/no standard class type
Data type:Optional: No
Call by Reference: No ( called with pass by value option)
INTERNAL_ERROR - Class header no longer exists
Data type:Optional: No
Call by Reference: No ( called with pass by value option)
Copy and paste ABAP code example for CTMS_OBJECT_HAS_FIRST_CLASS Function Module
The ABAP code below is a full code listing to execute function module POPUP_TO_CONFIRM including all data declarations. The code uses the original data declarations rather than 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 newer method of declaring data variables on the fly. 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), which i why i have stuck to the origianl for this example.| DATA: | ||||
| lv_class | TYPE KLAH-CLASS, " | |||
| lv_object | TYPE KSSK-OBJEK, " | |||
| lv_no_classification | TYPE KSSK, " | |||
| lv_table | TYPE TCLT-OBTAB, " | |||
| lv_classtext | TYPE SWOR-KSCHL, " | |||
| lv_table_not_allowed | TYPE SWOR, " | |||
| lv_classtype | TYPE KLAH-KLART, " | |||
| lv_classtype | TYPE KLAH-KLART, " | |||
| lv_internal_error | TYPE KLAH, " | |||
| lv_clint | TYPE KLAH-CLINT, " | |||
| lv_with_text | TYPE KLAH, " 'X' | |||
| lv_date_of_change | TYPE RMCLF-DATUV1. " SY-DATUM |
|   CALL FUNCTION 'CTMS_OBJECT_HAS_FIRST_CLASS' " |
| EXPORTING | ||
| OBJECT | = lv_object | |
| TABLE | = lv_table | |
| CLASSTYPE | = lv_classtype | |
| WITH_TEXT | = lv_with_text | |
| DATE_OF_CHANGE | = lv_date_of_change | |
| IMPORTING | ||
| CLASS | = lv_class | |
| CLASSTEXT | = lv_classtext | |
| CLASSTYPE | = lv_classtype | |
| CLINT | = lv_clint | |
| EXCEPTIONS | ||
| NO_CLASSIFICATION = 1 | ||
| TABLE_NOT_ALLOWED = 2 | ||
| INTERNAL_ERROR = 3 | ||
| . " CTMS_OBJECT_HAS_FIRST_CLASS | ||
ABAP code using 7.40 inline data declarations to call FM CTMS_OBJECT_HAS_FIRST_CLASS
The below ABAP code uses the newer in-line data declarations. This allows you to see the coding differences/benefits of the later inline syntax. Please note some of the newer syntax below, such as the @DATA is not available until 4.70 EHP 8.| "SELECT single CLASS FROM KLAH INTO @DATA(ld_class). | ||||
| "SELECT single OBJEK FROM KSSK INTO @DATA(ld_object). | ||||
| "SELECT single OBTAB FROM TCLT INTO @DATA(ld_table). | ||||
| "SELECT single KSCHL FROM SWOR INTO @DATA(ld_classtext). | ||||
| "SELECT single KLART FROM KLAH INTO @DATA(ld_classtype). | ||||
| "SELECT single KLART FROM KLAH INTO @DATA(ld_classtype). | ||||
| "SELECT single CLINT FROM KLAH INTO @DATA(ld_clint). | ||||
| DATA(ld_with_text) | = 'X'. | |||
| "SELECT single DATUV1 FROM RMCLF INTO @DATA(ld_date_of_change). | ||||
| DATA(ld_date_of_change) | = SY-DATUM. | |||
Search for further information about these or an SAP related objects