Thanks for ur reply and regret delay in replying...

Below given routine is giving me error that words program doesn't exist..

Pls advs...

>>Is there a program avl for getting denomination of given amount..
>>
>>Something like this...
>>
>>100X3=??
>>50X1=??
>>etc etc
>
>* This list gives the available currency units in a semicolon delimited list. Just substitute your values
>

>#define c_spis "100;50;20;10;5;1;.50;.10;.01"
>maxbank=words(c_spis, ";")
>* pictures for the quantity, currency unit value and the final amount
>pc_ko="9,999"
>pc_bank="9,999.99"
>g_pc="999,999.99"
>k1=0
>k2=k1+len(pc_ko)+4
>k3=k2+len(pc_bank)+3
>
>if type("g_pc")#"C"
>	g_pc="99,999,999.99"
>endif
>if type("apoJ(1)")="N"
>	maxbank=alen(apoJ)
>endif
>* apoJ[] holds the value of currency units
>* apoK[] holds the number of units of each size
>* apoQ[] holds the value in each of units
>if type("apoJ(1)")#"N"
>	spisapo= c_spis
>	maxbank=words(spisapo,";")
>	dime apoJ(maxbank), apoK(maxbank), apoQ(maxbank)
>	apoJ=0
>	apoQ=0
>	apoK=0
>	for i= 1 to maxbank
>		apoJ(i)=val(wordnum(spisapo,i,";"))
>	endf
>
>
>	priv i, _izn
>	_izn=TheQuantity
>	for i=1 to maxbank
>		apoK(i)=apoK(i)+int(_izn/apoJ(i))
>		apoQ(i)=apoK(i)*apoJ(i)
>		_izn=_izn % apoJ(i)
>	endf
>	for i=1 to maxbank
>	if apoK(i)#0
>		? apoK(i) pict pc_ko at k1, "*",	;
>			apoJ(i) pict pc_bank at k2, "=",	;
>			apoQ(i) pict g_pc at k3
>	endif
>endf
>endif

>
>HTH