RETURN LENGTH OF INPUT STRING

       ** Return the length of the input string to the caller .....PProcedure++++++..B...................Functions++++++++++++++++++++++++++++ 0076 P Strlen          B                   EXPORT .....DName+++++++++++EUDS.......Length+TDc.Functions++++++++++++++++++++++++++++ 0077 D Strlen          PI            10I 0 0078 D  InputStr                   4096A   CONST 0079 D nPos            S             10I 0 0080 D CheckStr        S             +1    LIKE(InputStr) .....CSRn01Factor1+++++++OpCode(ex)Factor2+++++++Result++++++++Len++DcHiLoEq.... 0081 C                   MoveL     InputStr      CheckStr 0082 C     ' '           CheckR    CheckStr      nPos 0083 C                   Return    nPos - 1 .....PProcName+++++++..B...................Functions++++++++++++++++++++++++++++ 0084 P StrLen          E 

Figure D.6: ZTOOLS example procedures— Return Length of Input String.