When compiling this error appear
Even if there is no relation with the line number ?
norja.prg(110:0): error XBT0216: Redefinition of Xbase++ internal
procedure or function

Normand,
welcome to the club! 
Could you post some code please? Especially the line 110 (+/-10 lines)
Regards,
Martin

It is a list of variable use trought out the whole program

MEMVAR ;
; //:::::::::: Variable de la procedure LISTE (Pour l'impression de rapport)
:::::
Ligne,;       Indique la ligne cumulative lors de l'impression d'un
rapport
Page,;        Compteur de page pour les rapports
Papier        Determine si l'affiche est . l'ecran ou sur papier
MEMVAR ;
; //:::::::::: Variables generales :::::::::
DERNIER,;     Compteur de numero de dossier
EcranCLR,;    Contient le nom de la procedure qui efface un ecran
EcranGET,;    Contient le nom de la procedure qui saisie les donnees
EcranTXT,;    Contient le nom de la procedure qui dessine l'ecran
EcranMAX,;    Contient le nombre maximum d'ecran pour une base
HIST,;        Etablit la selection du fichier historique
NLGN,;        Indique le nombre de ligne . afficher dans un ecran SCROLL=1
PAC,;         Etablit le type d'ecran pour la selection d'un PAC
PG,;          Numero de la page pour le menu d'aide
Sortir,;      Sert de test pour le 'S' de sortir
Effacer,;     Sert de test pour le 'E' de effacer

Tous,;        Sert de test pour le 'T' de tous  THIS IS THE 110 LINE

Oui,;         Sert de test pour le 'O' de oui
Recuperer     Sert de test pour le 'R' de recuperer
MEMVAR ;
; //::::::::::: Variable de format d'impression ::::::::::
PctPOSTE,PctCODE,PctUP,PctPRCNT,PctCNTRT,;
PctCOTE,PctDOLLAR,PctASS,PctPHONE,PctNO,PctHEURE,PctVILLE,PctNOM

________________________________________________________
Visitez le site du magazine Aubry et Cie www.norja.net


"Martin Altmann" <Altmann@altem.de> a crit dans le message de
news:BNKpyJlvEHA.6512@S15147418...
> Normand,
> welcome to the club! ;-)
> Could you post some code please? Especially the line 110 (+/-10 lines)
> Regards,
> Martin
>
>

Okay,
and which one of those is the line 110?
Are you sure that the variable in line 110 is not declared again in an other 
place of your program?

Regards,
Martin

Even if I quote that line the same line number error appear ?
Do you know what is th usual cause for that problem ?

________________________________________________________
Visitez le site du magazine Aubry et Cie www.norja.net


"Martin Altmann" <Altmann@altem.de> a crit dans le message de
news:z%238dVUpvEHA.8060@S15147418...
> Okay,
> and which one of those is the line 110?
> Are you sure that the variable in line 110 is not declared again in an
other
> place of your program?
>
> Regards,
> Martin
>
>

Hi,
the problem is that each "logical" line is going over several real lines as 
you are writing each variable in a single line.
Remove all the ";" and write the variables one after the other in the same 
line and you might get the "real" line number the error is in.

HTH,
Martin

Just a guess but you have an otherwise blank comment line inside the 
virtual declaration line. IMO remove the independent remark lines to 
outside the declaration ie

//:::::::::: Variable de la procedure LISTE (Pour l'impression de rapport)
  :::::
  MEMVAR ;
  Ligne,;       Indique la ligne cumulative lors de l'impression d'un
  rapport
  Page,;        Compteur de page pour les rapports <=this ok
  Papier        Determine si l'affiche est . l'ecran ou sur papier

Jim


Normand Aubry wrote:

> It is a list of variable use trought out the whole program
> 
> MEMVAR ;
> ; //:::::::::: Variable de la procedure LISTE (Pour l'impression de rapport)
> :::::
> Ligne,;       Indique la ligne cumulative lors de l'impression d'un
> rapport
> Page,;        Compteur de page pour les rapports
> Papier        Determine si l'affiche est . l'ecran ou sur papier
> MEMVAR ;
> ; //:::::::::: Variables generales :::::::::
> DERNIER,;     Compteur de numero de dossier
> EcranCLR,;    Contient le nom de la procedure qui efface un ecran
> EcranGET,;    Contient le nom de la procedure qui saisie les donnees
> EcranTXT,;    Contient le nom de la procedure qui dessine l'ecran
> EcranMAX,;    Contient le nombre maximum d'ecran pour une base
> HIST,;        Etablit la selection du fichier historique
> NLGN,;        Indique le nombre de ligne . afficher dans un ecran SCROLL=1
> PAC,;         Etablit le type d'ecran pour la selection d'un PAC
> PG,;          Numero de la page pour le menu d'aide
> Sortir,;      Sert de test pour le 'S' de sortir
> Effacer,;     Sert de test pour le 'E' de effacer
> 
> Tous,;        Sert de test pour le 'T' de tous  THIS IS THE 110 LINE
> 
> Oui,;         Sert de test pour le 'O' de oui
> Recuperer     Sert de test pour le 'R' de recuperer
> MEMVAR ;
> ; //::::::::::: Variable de format d'impression ::::::::::
> PctPOSTE,PctCODE,PctUP,PctPRCNT,PctCNTRT,;
> PctCOTE,PctDOLLAR,PctASS,PctPHONE,PctNO,PctHEURE,PctVILLE,PctNOM
> 
>

Looking again

  MEMVAR ;
  Ligne,;       Indique la ligne cumulative lors de l'impression d'un
  rapport   <=== missing ,;
  Page,;        Compteur de page pour les rapports <=this ok
  Papier        Determine si l'affiche est . l'ecran ou sur papier


James Loughner wrote:

> Just a guess but you have an otherwise blank comment line inside the 
> virtual declaration line. IMO remove the independent remark lines to 
> outside the declaration ie
> 
> //:::::::::: Variable de la procedure LISTE (Pour l'impression de rapport)
>  :::::
>  MEMVAR ;
>  Ligne,;       Indique la ligne cumulative lors de l'impression d'un
>  rapport
>  Page,;        Compteur de page pour les rapports <=this ok
>  Papier        Determine si l'affiche est . l'ecran ou sur papier
> 
> Jim
> 
> 
> Normand Aubry wrote:
> 
>> It is a list of variable use trought out the whole program
>>
>> MEMVAR ;
>> ; //:::::::::: Variable de la procedure LISTE (Pour l'impression de 
>> rapport)
>> :::::
>> Ligne,;       Indique la ligne cumulative lors de l'impression d'un
>> rapport
>> Page,;        Compteur de page pour les rapports
>> Papier        Determine si l'affiche est . l'ecran ou sur papier
>> MEMVAR ;
>> ; //:::::::::: Variables generales :::::::::
>> DERNIER,;     Compteur de numero de dossier
>> EcranCLR,;    Contient le nom de la procedure qui efface un ecran
>> EcranGET,;    Contient le nom de la procedure qui saisie les donnees
>> EcranTXT,;    Contient le nom de la procedure qui dessine l'ecran
>> EcranMAX,;    Contient le nombre maximum d'ecran pour une base
>> HIST,;        Etablit la selection du fichier historique
>> NLGN,;        Indique le nombre de ligne . afficher dans un ecran 
>> SCROLL=1
>> PAC,;         Etablit le type d'ecran pour la selection d'un PAC
>> PG,;          Numero de la page pour le menu d'aide
>> Sortir,;      Sert de test pour le 'S' de sortir
>> Effacer,;     Sert de test pour le 'E' de effacer
>>
>> Tous,;        Sert de test pour le 'T' de tous  THIS IS THE 110 LINE
>>
>> Oui,;         Sert de test pour le 'O' de oui
>> Recuperer     Sert de test pour le 'R' de recuperer
>> MEMVAR ;
>> ; //::::::::::: Variable de format d'impression ::::::::::
>> PctPOSTE,PctCODE,PctUP,PctPRCNT,PctCNTRT,;
>> PctCOTE,PctDOLLAR,PctASS,PctPHONE,PctNO,PctHEURE,PctVILLE,PctNOM
>>
>>

Normand

(...)
> Effacer,;     Sert de test pour le 'E' de effacer
> 
> Tous,;        Sert de test pour le 'T' de tous  THIS IS THE 110 LINE
> 
> Oui,;         Sert de test pour le 'O' de oui
(...)

If your source look exactly like this, the problem are the blank lines.
Just remove them and it should compile ok

(...)
> Effacer,;     Sert de test pour le 'E' de effacer
> Tous,;        Sert de test pour le 'T' de tous  THIS IS THE 110 LINE
> Oui,;         Sert de test pour le 'O' de oui
(...)

Otherwise, I don't have a clue ... 

Very Best Regards

João Pedro Machado de Sousa

FOUND IT,
It was a procedure name call DATE wish was accepted with clipper 5.3
The problem was in a set procedure call from the main program wish included
the DATE procedure subroutine.

thanks for your insight, it as been helpfull, especially the fact that the
line numbering does not take into account the comment spacing as a line.

Normand

________________________________________________________
Visitez le site du magazine Aubry et Cie www.norja.net


"Joo Pedro Machado de Sousa" <macsousa@maso.co pt> a crit dans le message
de news:14o5s1l84gw5y$.enpifoo1aeov.dlg@40tude.net...
> Normand
>
> (...)
> > Effacer,;    // Sert de test pour le 'E' de effacer
> >
> > Tous,;       // Sert de test pour le 'T' de tous  THIS IS THE 110 LINE
> >
> > Oui,;        // Sert de test pour le 'O' de oui
> (...)
>
> If your source look exactly like this, the problem are the blank lines.
> Just remove them and it should compile ok
>
> (...)
> > Effacer,;    // Sert de test pour le 'E' de effacer
> > Tous,;       // Sert de test pour le 'T' de tous  THIS IS THE 110 LINE
> > Oui,;        // Sert de test pour le 'O' de oui
> (...)
>
> Otherwise, I don't have a clue ... ;-)
>
> Very Best Regards
>
> Joo Pedro Machado de Sousa