Portability Function: Locates the position of the last nonblank character in a string.
USE IFPORT
result = LNBLNK (string)
string |
(Input) Character*(*). String to be searched. Cannot be an array. |
The result type is INTEGER(4). The result is the index of the last nonblank character in string.
LNBLNK is very similar to the intrinsic function LEN_TRIM, except that string cannot be an array.
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
USE IFPORT
integer(4) p
p = LNBLNK(' GOOD DAY ') ! returns 9
p = LNBLNK(' ') ! returns 0
Building Applications: Portability Library Overview