martes, 13 de noviembre de 2018

jueves, 8 de noviembre de 2018

Query para ver procesos App Engine con trace activo

SELECT A.PRCSTYPE, A.PRCSNAME, A.DESCR,  A.PARMLIST, A.LASTUPDOPRID, A.LASTUPDDTTM
FROM SYSADM.PS_PRCSDEFN A
WHERE A.PRCSTYPE = 'Application Engine'
AND A.PARMLIST <> ' '
ORDER BY A.LASTUPDDTTM DESC

Obtener valor de campo de cualquier record en nivel 0

GetLevel0()(1).GetRecord(1).UTP_YEARCD.Value;

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;