>lcSQL = "SELECT CPROCESSLOOKUPCA1.LU_NAME,CPROCESSINFOCA1.PROC_STAT,CPROCESSLOOKUPCA1.LU_KEY FROM CPROCESSLOOKUPCA1, CPROCESSINFOCA1 WHERE CPROCESSLOOKUPCA1.LU_KEY = CPROCESSINFOCA1.DESC_KEY ORDER BY CPROCESSINFOCA1.PROC_STAT DESC INTO cursor grdCPROCESSINFOCA1" > >WITH this.ctnrtrackermaintpf1.apftrackermaint1.page2.mhgrid1 > .AllowCellSelection = .F. > .RecordSourceType = 4 > .RecordSource = lcSQL > .column1.controlsource = lcControlSource1 &&lu_name > .column2.controlsource = "ICase(proc_stat=1, 'Required', proc_stat=2, 'In Process', proc_stat=3, 'COMPLETED', '')" >ENDWITH >>