T100——随机BIGINT、Base64-STRING、UUID-STRING

IMPORT security

DEFINE l_ceshi              INT
DEFINE l_ceshi1             BIGINT
DEFINE l_ceshi2             STRING
DEFINE l_ceshi3             STRING

CALL security.RandomGenerator.CreateRandomNumber() RETURNING l_ceshi1
SELECT SUBSTR(l_ceshi1,2,4) INTO l_ceshi FROM dual
IF l_ceshi < 1000 THEN  
    LET l_ceshi = l_ceshi * 10                    
END IF
INITIALIZE g_errparam TO NULL 
LET g_errparam.extend = "随机BIGINT："||l_ceshi1||"，截取INT："||l_ceshi 
LET g_errparam.code   = "!" 
LET g_errparam.popup  = TRUE 
CALL cl_err()

CALL security.RandomGenerator.CreateRandomString(2) RETURNING l_ceshi2
INITIALIZE g_errparam TO NULL 
LET g_errparam.extend = "随机Base64-STRING："||l_ceshi2 
LET g_errparam.code   = "!" 
LET g_errparam.popup  = TRUE 
CALL cl_err()

CALL security.RandomGenerator.CreateUUIDString() RETURNING l_ceshi3
INITIALIZE g_errparam TO NULL 
LET g_errparam.extend = "随机UUID-STRING："||l_ceshi3 
LET g_errparam.code   = "!" 
LET g_errparam.popup  = TRUE 
CALL cl_err()