Find Decimal Position in Number

Function DecimalPos(&sNumberStr) Returns number
   Local number &nReturn;
   If All(&sNumberStr) Then
      Return Round(Value(&sNumberStr / 100), 2)
   Else
      Return 0;
   End-If;
End-Function;

MakeDateFromString

Function MakeDateFromString(&sDate) Returns date
   Local date &dtRetDt, &dtNull;
   Local number &nMonth, &nDay, &nYear;
   If All(&sDate) And
         &sDate <> "00000000" Then
      &nMonth = Value(Substring(&sDate, 5, 2));
      &nDay = Value(Substring(&sDate, 7, 2));
      &nYear = Value(Substring(&sDate, 1, 4));
      rem &fileBatch.WriteLine("&nMonth: " | &nMonth | "&nDay: " | &nDay | "&nYear: " | &nYear);
      Return Date3(&nYear, &nMonth, &nDay);
   Else
      Return &dtNull;
   End-If;
End-Function;

DeleteFile Function

Function DeleteFile(&FilePath As string, &sFileName As string) Returns string;
   Local string &sReturnValue;
   Local File &RQST_FILE1 = GetFile(&FilePath | &sFileName, "W", %FilePath_Absolute);
   Local number &retcode;
   Local JavaObject &oDelFile;
   &FNAMES = FindFiles(&FilePath | &sFileName, %FilePath_Absolute);
   If &FNAMES.Len > 0 Then
      MessageBox(0, "", 0, 0, "fileExists " | &FNAMES [1]);
      If All(&RQST_FILE1) Then
         &oDelFile = CreateJavaObject("java.io.File", &FilePath | &sFileName);
         &sFileName1 = &oDelFile.getName();
         &nFilelength1 = &oDelFile.length();
         MessageBox(0, "", 0, 0, "&sFileName1  " | &sFileName1);
         MessageBox(0, "", 0, 0, "&nFilelength1  " | &nFilelength1);
         &oDelFile.delete();
         Return "DELETED";
      End-If;
   End-If;
   Return " ";
End-Function;