>CLOSE DATABASES all >CLEAR > >CREATE CURSOR MyLongNameCursor(MyLongFieldName c(10)) >INSERT INTO MyLongNameCursor values("1234567890") >oXA=CREATEOBJECT("XMLAdapter") >oXA.AddTableSchema("MyLongNameCursor") >oXA.ToXML("cXML") >CLOSE TABLES >oXA.ReleaseXML(.T.) > >oXA.LoadXML(cXML) >oXA.Tables(1).ToCursor() >SELECT oXA.Tables(1).Alias >?ALIAS() >AFIELDS(MyFields) >DISPLAY MEMORY LIKE MyFields >LIST >return >>
>MYLONGNAMECURSOR >MYFIELDS Pub A > ( 1, 1) C "MYLONGFIELDNAME" > ( 1, 2) C "C" > ( 1, 3) N 10 ( 10.00000000) > ( 1, 4) N 0 ( 0.00000000) > ( 1, 5) L .F. > ( 1, 6) L .F. > ( 1, 7) C "" > ( 1, 8) C "" > ( 1, 9) C "" > ( 1, 10) C "" > ( 1, 11) C "" > ( 1, 12) C "" > ( 1, 13) C "" > ( 1, 14) C "" > ( 1, 15) C "" > ( 1, 16) C "" > ( 1, 17) N 0 ( 0.00000000) > ( 1, 18) N 0 ( 0.00000000) >Record# MYLONGFIELDNAME > 1 1234567890 >>