Having problems with your account or logging in?
A lot of changes are happening in the community right now. Some may affect you. READ MORE HERE

How can I create random string of a particular length?

How can I create random string of a particular length?

The following code will take a number that will be used to define the number of times a loop is performed. Each time the loop is performed a new random character is added to the end of the string.

benchmark BenchmarkName 

use "kernel.bdh"

var

dclrand rsletter : RndStr (1..1);

dcluser user VirtUser

transactions TmyTrans1 : 1; // Transactions 

dclfunc function FMyFunction(size : number) : string // takes a number in and returns a string

var 

sMainString : string;

count : number;

 randletter : string;

begin

for count := 0 to size do // add 1 character the number of times specified by the size parameter 

randletter := rsletter ; //assign randomstring into variable 

sMainString := Strcat(sMainString,randletter); //concatenate the letter to the current string 

end; //end loop 

FMyFunction := sMainString;

 writeln ("final =" +sMainString); end FMyFunction; dcltrans transaction TmyTrans1 begin fMyfunction(5);

 //call function with size of 5 

end TmyTrans1;

DISCLAIMER:

Some content on Community Tips & Information pages is not officially supported by Micro Focus. Please refer to our Terms of Use for more detail.
Top Contributors
Version history
Revision #:
1 of 1
Last update:
‎2013-02-15 18:56
Updated by:
 
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.