>it is a good way to do it like that ?????
>
>
>PUBLIC LCDX
>STORE "TMP_"+ SYS(03) TO LCDX
>
>SELECT IDENT,HSCODE,DESC1,DESC2 FROM TB_HS_MESS ;
>WHERE IDCLIENT = l_Custno ORDER BY hscode INTO CURSOR CUR_HSCODE
>INDEX ON HSCODE TAG HSCODE OF &LCDX
>INDEX ON DESC1 TAG DESC1 OF &LCDX

1. Don't use public

See my changes

2.

SELECT IDENT,HSCODE,DESC1,DESC2 FROM TB_HS_MESS ;
WHERE IDCLIENT = l_Custno ORDER BY hscode INTO CURSOR CUR_HSCODE ReadWrite

INDEX ON HSCODE TAG HSCODE 
INDEX ON DESC1 TAG DESC1