Load Data in a Grid using Peoplecode

Local SQL &GRD_SQL;
Local Rowset &GRD_RS;

&GRD_RS = GetLevel0()(1).GetRowset(Scroll.IOBM_APTST_SMS1);

&APT_ARR = CreateArrayAny("");

&strm = IOBM_SMS_WRK.STRM.Value;
If All(&strm) Then

   &GRD_SQL = CreateSQL("select distinct IOBM_REF_NO , ACAD_CAREER , ACAD_PROG , ADMIT_TERM ,IOBM_A_MOBILE_NO , FIRST_NAME ,MIDDLE_NAME ,LAST_NAME  from PS_IOBM_APT_SMS_VW  WHERE ADMIT_TERM =:1", &strm);
  
  
  
   &GRD_RS.Flush();
  
   While &GRD_SQL.Fetch(&APT_ARR)
     
      &GRD_RS(1).IOBM_APTST_SMS1.IOBM_REF_NO.Value = &APT_ARR [1];
     
      &GRD_RS(1).IOBM_APTST_SMS1.ACAD_CAREER.Value = &APT_ARR [2];
     
      &GRD_RS(1).IOBM_APTST_SMS1.ACAD_PROG.Value = &APT_ARR [3];
      &GRD_RS(1).IOBM_APTST_SMS1.ADMIT_TERM.Value = &APT_ARR [4];
      &GRD_RS(1).IOBM_APTST_SMS1.IOBM_A_MOBILE_NO.Value = &APT_ARR [5];
      &GRD_RS(1).IOBM_APTST_SMS1.FIRST_NAME.Value = &APT_ARR [6];
     
      &GRD_RS(1).IOBM_APTST_SMS1.MIDDLE_NAME.Value = &APT_ARR [7];
      &GRD_RS(1).IOBM_APTST_SMS1.LAST_NAME.Value = &APT_ARR [8];
     
      &GRD_RS.InsertRow(0);
   End-While;
   &GRD_RS.DeleteRow(1);
   &GRD_SQL.Close();
End-If;