Mostrar metadata de PSQuery

Local ApiObject &MyQuery, &MyMetacol, &MyMetadata; 
Local File &MyFile; 

&MyFile = GetFile("Metadata.Txt", "A"); 

&MyQuery = %Session.GetQuery(); 

&Rlst = &MyQuery.Open("ADDRESS_TEMP", False, 1); 

If &Rlst = 0 Then 
   &MyMetacol = &MyQuery.metadata; 
   &MyFile.WriteLine("Name              Value"); 
   &MyFile.WriteLine("-----------------------"); 
    
   For &i = 1 To &MyMetacol.count 
      &MyMetadata = &MyMetacol.item(&i); 
      &Name = &MyMetadata.name; 
      &Value = &MyMetadata.Value; 
      &MyFile.WriteLine(&Name | "              " | &Value); 
   End-For; 
    
Else 
   WinMessage("Open query not successful"); 
End-If;