LEN

/*                                               2011/2012  MCSERRA  */
/*                                                                   */
/*                                             NAO ALTERAR POR FAVOR */
/* REXX                                                              */
/* ----------------------------------------------------------------- */
/* LEN
     MACRO EDIT - CALCULA Nº CARACTERES ENTRE DUAS PLICAS
                  COM BASE NA POSICAO DO CURSOR
                  (OPTIMIZADO SE UTILIZADO EM TECLA DE FUNCAO)
     TECLA DE FUNCAO RECOMENDADA: PF16  [SHIFT+PF04]
*/
/* ----------------------------------------------------------------- */
  "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/2012  MCSERRA  */