&rsLvl0 = GetLevel0();
/ Get Level 1 Rowset /
&rsLvl1 = GetLevel0()(1).GetRowset(Scroll.IOBM_APTST_SMS1);
For &i = 1 To &rsLvl1.ActiveRowCount
&getPhone = &rsLvl1.GetRow(&i).GetRecord(Record.IOBM_APTST_SMS1).GetField(Field.IOBM_A_MOBILE_NO).VALUE;
&FIRST_NAME = &rsLvl1.GetRow(&i).GetRecord(Record.IOBM_APTST_SMS1).GetField(Field.FIRST_NAME).VALUE;
&LAST_NAME = &rsLvl1.GetRow(&i).GetRecord(Record.IOBM_APTST_SMS1).GetField(Field.LAST_NAME).VALUE;
&MIDDLE_NAME = &rsLvl1.GetRow(&i).GetRecord(Record.IOBM_APTST_SMS1).GetField(Field.MIDDLE_NAME).VALUE;
End-for;
/ Get Level 1 Rowset /
&rsLvl1 = GetLevel0()(1).GetRowset(Scroll.IOBM_APTST_SMS1);
For &i = 1 To &rsLvl1.ActiveRowCount
&getPhone = &rsLvl1.GetRow(&i).GetRecord(Record.IOBM_APTST_SMS1).GetField(Field.IOBM_A_MOBILE_NO).VALUE;
&FIRST_NAME = &rsLvl1.GetRow(&i).GetRecord(Record.IOBM_APTST_SMS1).GetField(Field.FIRST_NAME).VALUE;
&LAST_NAME = &rsLvl1.GetRow(&i).GetRecord(Record.IOBM_APTST_SMS1).GetField(Field.LAST_NAME).VALUE;
&MIDDLE_NAME = &rsLvl1.GetRow(&i).GetRecord(Record.IOBM_APTST_SMS1).GetField(Field.MIDDLE_NAME).VALUE;
End-for;
No comments:
Post a Comment