REPORT ZRTEST01.
FORM FRM_GEN_UUID CHANGING UUIDRET.
*SAP标准函数SYSTEM_UUID_CREATE存在bug，短时间内产生的uuid存在重复现象，不要使用。
*此处自定义函数产生uuid.
*返回值uuid type c length 32.
*原理：时间戳 + 随机数 + 标准uuid函数后12位.
DATA: LV_TIMESTAMP TYPE TZONREF-TSTAMPS,
LV_RANDOMINT TYPE QF00-RAN_INT,
LV_IDENT TYPE ESEIDENT,
LV_MESG TYPE NATXT,
LV_IDENTNM TYPE ESEIDENTNM,
LV_TSTMP TYPE C LENGTH 15,
LV_RAINT TYPE C LENGTH 6,
LV_IDENTMP TYPE C LENGTH 132,
LV_UUIDRET TYPE C LENGTH 33.
"获取时间戳.
CALL FUNCTION 'CIF_GEN4_CONVERT_DATETIME'
EXPORTING
IV_DATE = SY-DATUM
IV_TIME = SY-UZEIT
IV_TIMEZONE = SY-ZONLO
IMPORTING
EV_TIMESTAMP = LV_TIMESTAMP "length 15.
EXCEPTIONS
TIME_CONVERSION_FAILED = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
"获取随机数.
CALL FUNCTION 'QF05_RANDOM_INTEGER'
EXPORTING
RAN_INT_MAX = 999999
RAN_INT_MIN = 100000
IMPORTING
RAN_INT = LV_RANDOMINT "length 6.
EXCEPTIONS
INVALID_INPUT = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
* IMPLEMENT SUITABLE ERROR HANDLING HERE
ENDIF.
"调用系统的uuid函数.
CALL FUNCTION 'EHSS_ESCOM_UUID_GENERATE'
IMPORTING
E_IDENT = LV_IDENT
E_MESG = LV_MESG
E_IDENTNM = LV_IDENTNM "right(12)
EXCEPTIONS
ID_NOT_GENERATE = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
"强制类型转换.
WRITE LV_TIMESTAMP TO LV_TSTMP.
WRITE LV_RANDOMINT TO LV_RAINT.
WRITE LV_IDENTNM TO LV_IDENTMP.
CONCATENATE LV_TSTMP LV_RAINT LV_IDENTMP+19(12) INTO LV_UUIDRET.
UUIDRET = LV_UUIDRET.
CLEAR: LV_RANDOMINT,
LV_IDENT,
LV_MESG,
LV_IDENTNM,
LV_TSTMP,
LV_RAINT,
LV_IDENTMP,
LV_UUIDRET.
ENDFORM.
START-OF-SELECTION.
DATA UUIDRET TYPE C LENGTH 33.
PERFORM FRM_GEN_UUID CHANGING UUIDRET.
WRITE UUIDRET.
