Hi,
I am wondering if there is a magical option for the XREF compilation which could give me more information about data-members of other classes.
As an explanation, here are 2 sample codes :
maClasse.cls
/* Corresponding XREF output */
I would need to know the data-type of the "distant" data-member maClasse2rop1... but without having to access the maClasse2.cls file or its corresponding XREF output file.
Any idea welcome !
Julien
I am wondering if there is a magical option for the XREF compilation which could give me more information about data-members of other classes.
As an explanation, here are 2 sample codes :
maClasse.cls
Code:
CLASS maClasse :
DEF PUBLIC VAR cls1 AS CLASS maClasse2 NO-UNDO.
DEF PUBLIC VAR var1 AS INT NO-UNDO.
METHOD PUBLIC LOGICAL m1(INPUT p1 AS INT) :
cls1 = NEW maClasse2().
var1 = cls1:Prop1.
RETURN (var1 = 0).
END METHOD.
END CLASS.
Code:
/Test/maClasse.cls /Test/maClasse.cls 1 COMPILE maClasse.cls
/Test/maClasse.cls /Test/maClasse.cls 1 CPINTERNAL iso8859-1
/Test/maClasse.cls /Test/maClasse.cls 1 CPSTREAM iso8859-1
/Test/maClasse.cls /Test/maClasse.cls 1 CLASS maClasse,,,,
/Test/maClasse.cls /Test/maClasse.cls 1 STRING "maClasse" 8 NONE UNTRANSLATABLE
/Test/maClasse.cls /Test/maClasse.cls 2 STRING "cls1" 4 NONE UNTRANSLATABLE
/Test/maClasse.cls /Test/maClasse.cls 2 DATA-MEMBER PUBLIC,,cls1
/Test/maClasse.cls /Test/maClasse.cls 3 STRING "var1" 4 NONE UNTRANSLATABLE
/Test/maClasse.cls /Test/maClasse.cls 3 DATA-MEMBER PUBLIC,,var1
/Test/maClasse.cls /Test/maClasse.cls 5 STRING "p1" 2 NONE UNTRANSLATABLE
/Test/maClasse.cls /Test/maClasse.cls 6 ACCESS PUBLIC-DATA-MEMBER maClasse:cls1
/Test/maClasse.cls /Test/maClasse.cls 7 ACCESS PUBLIC-DATA-MEMBER maClasse:var1
/Test/maClasse.cls /Test/maClasse.cls 7 ACCESS PUBLIC-DATA-MEMBER maClasse:cls1
/Test/maClasse.cls /Test/maClasse.cls 7 ACCESS PUBLIC-DATA-MEMBER maClasse2:Prop1
/Test/maClasse.cls /Test/maClasse.cls 7 UPDATE PUBLIC-DATA-MEMBER maClasse:var1
/Test/maClasse.cls /Test/maClasse.cls 8 ACCESS PUBLIC-DATA-MEMBER maClasse:var1
/Test/maClasse.cls /Test/maClasse.cls 9 METHOD PUBLIC,,,m1,logical,INPUT p1 INTEGER
/Test/maClasse.cls /Test/maClasse.cls 9 STRING "M1" 2 NONE UNTRANSLATABLE
/Test/maClasse.cls /Test/maClasse.cls 10 CONSTRUCTOR PUBLIC,,,maClasse,void,
/Test/maClasse.cls /Test/maClasse.cls 10 STRING "MACLASSE" 8 NONE UNTRANSLATABLE
/Test/maClasse.cls /Test/maClasse.cls 6 NEW maClasse2
Any idea welcome !
Julien