Cleardrop down

/*To populate the Source id (Referral Source) as per the 8.8*/
&RS(1).HRS_APAL_SRCE_I.HRS_SOURCE_ID.ClearDropDownList();
&Xlat1 = CreateRowset(Record.HRS_SRC_SU_PT_I);
&Xlat1.Fill("WHERE FILL.HRS_SOURCE_ID IN ('1000','1018','1006','1007','1013','1024','1027','1017','1015','1019', '1032') AND Fill.HRS_SOURCE_DESCR in ('Agency / Consultant Firm','Converted frm Temp / Contract','Direct','Employee','Newspaper Advertisement','Job Portal','Internet','School / College','Other','Unknown', 'Intranet') ");
&Xlat_cnt1 = &Xlat1.ActiveRowCount;
For &J = 1 To &Xlat_cnt1
   &CodeIn1 = &Xlat1.GetRow(&J).GetRecord(1).HRS_SOURCE_ID.Value;
   &DescIn1 = &Xlat1.GetRow(&J).GetRecord(1).HRS_SOURCE_DESCR.Value;
  
   &RS(1).HRS_APAL_SRCE_I.HRS_SOURCE_ID.AddDropDownItem(&CodeIn1, &DescIn1);
End-For;

&RSz(1).HRS_JO_RQMT.PAY_FREQ_ABBRV.ClearDropDownList();
   &Xlat = CreateRowset(Record.PSXLATITEM);
   &Xlat.Fill("WHERE FILL.FIELDNAME = 'PAY_FREQ_ABBRV' AND Fill.FIELDVALUE in ('A') and EFFDT <= %CurrentDateIn");
   &Xlat_cnt = &Xlat.ActiveRowCount;
   For &I = 1 To &Xlat_cnt
      &CodeIn = &Xlat.GetRow(&I).GetRecord(1).FIELDVALUE.Value;
      &DescIn = &Xlat.GetRow(&I).GetRecord(1).XLATLONGNAME.Value;
     
      &RSz(1).HRS_JO_RQMT.PAY_FREQ_ABBRV.AddDropDownItem(&CodeIn, &DescIn);
   End-For;