Code: Alles auswählen.
DATA: I0700 LIKE P01_0700_DXA1_181.
CLASS CL_HR_PNNNN_TYPE_CAST DEFINITION LOAD.
CASE INNNN-INFTY.
WHEN '0700'.
CASE INNNN-SUBTY.
WHEN 'DXA1'.
CASE INNNN-BEGDA.
WHEN '01072019'.
CASE INNNN-ENDDA.
WHEN '31129999'.
CALL METHOD CL_HR_PNNNN_TYPE_CAST=>PRELP_TO_PNNNN
EXPORTING
PRELP = INNNN
IMPORTING
PNNNN = I0700.
I0700 = INNNN.
I0700-FLAG_PRECONDITIONS = 'X'.
MOVE 'X' TO I0700-FLAG_PRECONDITIONS.
CALL METHOD CL_HR_PNNNN_TYPE_CAST=>PNNNN_TO_PRELP
EXPORTING
PNNNN = I0700
IMPORTING
PRELP = INNNN.
ENDCASE.
ENDCASE.
ENDCASE.
ENDCASE.
Code: Alles auswählen.
IF INNNN-INFTY = '0700' AND INNNN-SUBTY = 'DXA1'
AND INNNN-BEGDA = '01072017'
AND INNNN-ENDDA = '31129999'.
CALL METHOD CL_HR_PNNNN_TYPE_CAST=>PRELP_TO_PNNNN
EXPORTING
PRELP = INNNN
IMPORTING
PNNNN = I0700.
I0700 = INNNN.
I0700-FLAG_PRECONDITIONS = 'X'.
MOVE 'X' TO I0700-FLAG_PRECONDITIONS.
CALL METHOD CL_HR_PNNNN_TYPE_CAST=>PNNNN_TO_PRELP
EXPORTING
PNNNN = I0700
IMPORTING
PRELP = INNNN.
ENDIF.
Code: Alles auswählen.
CALL METHOD CL_HR_PNNNN_TYPE_CAST=>PRELP_TO_PNNNN
EXPORTING
PRELP = INNNN
IMPORTING
PNNNN = I0700.
I0700 = INNNN.
Code: Alles auswählen.
I0700-FLAG_PRECONDITIONS = 'X'.
MOVE 'X' TO I0700-FLAG_PRECONDITIONS.