Code: Alles auswählen.
DATA:
LD_IS_DATA TYPE RNPAP_ATTRIB ,
LD_IT_CONNECTED_OBJECTS TYPE ISH_OBJECTLIST ,
LD_I_ENVIRONMENT TYPE REF TO CL_ISH_ENVIRONMENT ,
LD_E_INSTANCE TYPE REF TO CL_ISH_PATIENT_PROVISIONAL ,
LD_E_INTERFACE TYPE REF TO IF_ISH_OBJECTBASE.
DATA: L_RC TYPE ISH_METHOD_RC,
L_PROVISIONAL TYPE RNPAP_KEY.
DATA: LR_ERRORHANDLER TYPE REF TO CL_ISHMED_ERRORHANDLING.
DATA: LO_SYS_EXCEPTION TYPE REF TO CX_AI_SYSTEM_FAULT,
LO_APP_EXCEPTION TYPE REF TO CX_AI_APPLICATION_FAULT.
LD_IS_DATA-VNAME = 'vname_1'.
LD_IS_DATA-NNAME = 'nnmae_1'.
LD_IS_DATA-GBDAT = '01.01.1999'.
CALL METHOD CL_ISH_FAC_ENVIRONMENT=>CREATE
EXPORTING
I_PROGRAM_NAME = SY-REPID
IMPORTING
E_INSTANCE = LD_I_ENVIRONMENT
E_RC = L_RC.
IF L_RC NE 0.
* p_okcode = 'TEST'.
EXIT.
ENDIF.
TRY.
CALL METHOD CL_ISH_PATIENT_PROVISIONAL=>CREATE
EXPORTING
IS_DATA = LD_IS_DATA
I_ENVIRONMENT = LD_I_ENVIRONMENT
IMPORTING
E_INSTANCE = LD_E_INSTANCE
EXCEPTIONS
MISSING_ENVIRONMENT = 1
NO_AUTHORITY = 2
OTHERS = 3.
*----
CATCH CX_AI_SYSTEM_FAULT INTO LO_SYS_EXCEPTION.
CATCH CX_AI_APPLICATION_FAULT INTO LO_APP_EXCEPTION.
ENDTRY.
TRY.
CALL METHOD LD_E_INSTANCE->SAVE
CHANGING
C_ERRORHANDLER = LR_ERRORHANDLER.
CATCH CX_AI_SYSTEM_FAULT INTO LO_SYS_EXCEPTION.
CATCH CX_AI_APPLICATION_FAULT INTO LO_APP_EXCEPTION.
COMMIT WORK AND WAIT.
ENDTRY.
TRY.
CALL METHOD LD_E_INSTANCE->GET_DATA
IMPORTING
ES_KEY = L_PROVISIONAL.
CATCH CX_AI_SYSTEM_FAULT INTO LO_SYS_EXCEPTION.
CATCH CX_AI_APPLICATION_FAULT INTO LO_APP_EXCEPTION.
ENDTRY.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
Code: Alles auswählen.
LD_IS_DATA-GBDAT = '19990101'.
Folgende Benutzer bedankten sich beim Autor ewx für den Beitrag:
stony007_de