Create Multi Ledger

I want To Create Multi Ledger in One Button Click Through Function

Any Example of Function

Plz Suggest & tell Me....
My Code is This

[#Form:Company]
On:Form Accept:Yes:Call:My Function

[Function: My Function]

;; Definition Block

Parameter: NGroupName : String
Parameter: EGroupName : String

Variable : Counter : Number

;; Procedural Block

01 : NEW OBJECT : Group
02 : SET VALUE : Name : ##NGroupName
03 : SET VALUE : Parent : ##EGroupName
04 : CREATE TARGET

05 : SET : Counter : 1
06 : WHILE : ##Counter <= 5
00 : NEW OBJECT : Ledger
01 : SET VALUE : Name : "Anand"
02 : SET VALUE : Parent : "Sundry Debtors"
03 : CREATE TARGET
11 : INCREMENT : Counter
12 : END WHILE
13 : MSGBOX : "Success !!" : "Ledgers created successfully"
14 : RETURN

;; End-of-File

 

Plz Help or Suggestion