You may have a function that you may call every time you need in alias, e.g.:

Function gettempalias		&& return cursor alias
Local cTempalias
cTempalias='A'+Substr(Sys(2015),3,10)
If Used(cTempalias)
	Use In &cTempalias.
Endif
Return cTempalias
Endfunc

and in your program:

cAlias=gettempalias()
Select ... From ... Into Cursor &cAlias.
...
Select (cAlias)
...
Use In &cAlias.

>Hi Sir,
>
>How do I create a temporary aliases for my cursor?
>
>Normally, I just do this...
>
>

>SELECT * FROM poentry ;
>INTO CURSOR crsPoEntry
>

>
>> No problem. Btw, it is also a good practice to generate temporary aliases for cursors > every time when you use them.
>
>Please help.
>
>Thanks,
>Sam