Lastname, First name from Name Field in File Layout Peoplecode - Peoplesoft ?

Rem Code to split the First Name and Last Name from the Given Name Field ;
&Name = " ";
&LastName = " ";
&FirstName = " ";
&MiddleInitial = " ";
&Name = &RS2.GetRow(&I).GetRecord(1).GetField(Field.NAME).Value;
&NameArray = Split(&Name, ",");
&Rc = &NameArray.len;
If &Rc > 1 Then
&LastName = &NameArray [1];
&NameArray1 = LTrim(&NameArray [2], " ");
&NameArray1 = Split(&NameArray1);
&Rc1 = &NameArray1.len;
If &Rc1 > 1 Then
&FirstName = &NameArray1 [1];
&MiddleInitial = &NameArray1 [2];
&MiddleInitial = Substring(&MiddleInitial, 1, 1);
&REC2.LAST_NAME.Value = &LastName;
&REC2.FIRST_NAME.Value = &FirstName;
&REC2.MIDDLE_INITIAL.Value = &MiddleInitial;
Else
&REC2.LAST_NAME.Value = &LastName;
&FirstName = &NameArray1 [1];
&REC2.FIRST_NAME.Value = &FirstName;
End-If;
Else
&LOGFILE.WriteLine("****The Field is not in the prescribed format - Lastname,Firstname : " | &Name);

End-If;