added LSL2 stored procedures

This commit is contained in:
Infineon\StieberD
2024-03-25 14:46:21 -07:00
parent 09f1a66046
commit c667dd56eb
1655 changed files with 527967 additions and 0 deletions

View File

@ -0,0 +1,19 @@
FUNCTION REMOVE_TRAILING_CHAR( Field, CharToRemove )
*
begin condition
pre:
post:
end condition
$insert logical
NewField = ''
FCnt = len(Field)
Done = false$
for i = FCnt to 1 step -1
ThisChar = Field[i,1]
if ThisChar = CharToRemove then
NewField = Field[1,i-1]
end
until ThisChar <> CharToRemove
next i
return NewField