Irrespective of character length below function will return next character
Function auto_incr_char(&Var As string) Returns string
Local string &substr;
&nc = Len(&Var);
&var1 = "";
For &c = &nc To 1 Step - 1
&substr = Substring(&Var, &c, 1);
rem check between 65 to 90;
If Code(&substr) >= 65 And
Code(&substr) < 90 Then
&substr = Char(Code(&substr) + 1);
&var1 = &substr | &var1;
&var1 = Substring(&Var, 1, &c - 1) | &var1;
Break;
Else
&var1 = "A" | &var1;
End-If;
End-For;
Return &var1;
End-Function;
Function auto_incr_char(&Var As string) Returns string
Local string &substr;
&nc = Len(&Var);
&var1 = "";
For &c = &nc To 1 Step - 1
&substr = Substring(&Var, &c, 1);
rem check between 65 to 90;
If Code(&substr) >= 65 And
Code(&substr) < 90 Then
&substr = Char(Code(&substr) + 1);
&var1 = &substr | &var1;
&var1 = Substring(&Var, 1, &c - 1) | &var1;
Break;
Else
&var1 = "A" | &var1;
End-If;
End-For;
Return &var1;
End-Function;