PC : validate the grid if same value present at level 1

REM **************************************************Modification Summary *******************************************************************;
REM SL. No    Developer             Mod. No.     Date          Changes
REM -----  -----------             --------- ----------  ------------------------------------------------------------
REM  01         Krishnam Raju Nadimpalli   AD0005       29/10/2015       Added the code to validate the Term and Description values
REM*************************************************************************;

Local Rowset &RS1, &RS2;
Local number &i, &j;

&RS1 = GetLevel0 () (1).GetRowset(Scroll.LAC_WINPTRM_SET);

For &i = 1 To &RS1.ActiveRowCount
   &ITermCode = &RS1(&i).GetRecord(Record.LAC_WINPTRM_SET).LAC_WINP_TERM_CODE.Value;
   &ITermDescr = &RS1(&i).GetRecord(Record.LAC_WINPTRM_SET).TERM_DESCR30.Value;
  
   For &j = 1 To &RS1.ActiveRowCount
     
      &RS1(&j).GetRecord(Record.LAC_WINPTRM_SET).TERM_DESCR30.Style = "";
      &RS1(&j).GetRecord(Record.LAC_WINPTRM_SET).LAC_WINP_TERM_CODE.Style = "";
     
      &JTermCode = &RS1(&j).GetRecord(Record.LAC_WINPTRM_SET).LAC_WINP_TERM_CODE.Value;
      &JTermDescr = &RS1(&j).GetRecord(Record.LAC_WINPTRM_SET).TERM_DESCR30.Value;
     
      If &ITermCode = &JTermCode And
            &i <> &j Then
        
         SetCursorPos(Page.LAC_WINP_TRM_SETUP, LAC_WINPTRM_SET.LAC_WINP_TERM_CODE, CurrentRowNumber());
         &RS1(&j).GetRecord(Record.LAC_WINPTRM_SET).LAC_WINP_TERM_CODE.Style = "PSERROR";
         Error MsgGet(25000, 28, "");
      End-If;
     
      If &ITermDescr = &JTermDescr And
            &i <> &j Then        
         SetCursorPos(Page.LAC_WINP_TRM_SETUP, LAC_WINPTRM_SET.TERM_DESCR30, CurrentRowNumber());
         &RS1(&j).GetRecord(Record.LAC_WINPTRM_SET).TERM_DESCR30.Style = "PSERROR";
         Error MsgGet(25000, 29, "");
      End-If;      
   End-For;  
End-For;