LENS

/*                                               2011/2015  MCSERRA  */
/* REXX                                                              */
/* ----------------------------------------------------------------- */
/*                                             NAO ALTERAR POR FAVOR */
/* LENS
     MACRO EDIT - CALCULA Nº CARACTERES DE UMA PALAVRA (INCLUINDO '-')
                  COM BASE NA POSICAO DO CURSOR
                  (OPTIMIZADO SE UTILIZADO EM TECLA DE FUNCAO)
     TECLA DE FUNCAO RECOMENDADA: PF15  [SHIFT+PF03]
*/
/* ----------------------------------------------------------------- */
  "ISREDIT MACRO"
/*                                                                   */
     "ISPEXEC CONTROL ERRORS RETURN"
/*-                                                                 -*/
     "ISREDIT (ROW,COL) = CURSOR"
     "ISREDIT (LINHA) = LINE " ROW
     CND = 0
     DO N = COL TO 1 BY -1  UNTIL CND > 0
        AUX = SUBSTR(LINHA, N , 1)
        IF AUX = ' ' | AUX = ':' THEN
        DO
           CND = N + 1
           LINHA = SUBSTR(LINHA, CND)
        END
     END
     IF CND > 0 THEN CND = 0
     DO N = 1 TO 80 UNTIL CND > 0
        AUX = SUBSTR(LINHA, N , 1)
        IF AUX = ' ' | AUX = '(' THEN
        DO
           CND = N - 1
           LINHA = SUBSTR(LINHA, 1, CND)
        END
     END
     RES = LENGTH(LINHA)
     ZEDSMSG = 'Len : ' RES
     ZEDLMSG = 'Len ('LINHA'): ' RES
     "ISPEXEC SETMSG MSG(ISRZ001)"
  EXIT
/*------------------------------------------------------------------*/
/*                                               2011/2015  MCSERRA  */