Funções intrínsecas - LENGTH

	FUNCTION LENGTH

	A função "FUNCTION LENGTH" retorna um inteiro igual a cumprimento do argumento fornecido.

	Formato geral: FUNCTION LENGTH (arg) arg é uma literal não numérica ou um item de dados de uma classe ou categoria
	Regras:
	1. O tipo desta função é um inteiro - PIC 9(XXX)
	2. O valor retornado é um inteiro igual ao número de bytes do argumento fornecido.
	3. O valor retornado inclui caracteres FILLER implícitos, se for o caso.

Exemplo

       
      *-----------------------------------------------------------------
       WORKING-STORAGE SECIOTN.
      *-----------------------------------------------------------------

       01  WS-LENGTH.                                           
           05  WSS-CAMPOS01              PIC X(60) VALUE SPACES.
           05  WSS-CAMPOS02              PIC X(60) VALUE SPACES.
           05  WSS-CAMPOS03              PIC 9(05) VALUE ZEROES.
           05  WSS-CAMPOS04              PIC X(60) VALUE SPACES.
           05  WSS-RESULTADO             PIC 9(10) VALUE ZEROES.
           05  WSS-A                     PIC 9(01) VALUE 1.     
           05  WSS-B                     PIC 9(01) VALUE 2.     
           05  WSS-C                     PIC 9(01) VALUE 3.     
           05  WSS-D OCCURS 12 TIMES     PIC 9(01).             
       
		 
      *-----------------------------------------------------------------
       PROCEDURE DIVISION. 
      *-----------------------------------------------------------------

      * sintaxe do comando   
           COMPUTE WSS-RESULTADO = FUNCTION LENGTH (WS-LENGTH)
           DISPLAY 'FUNCTION LENGTH - ' WSS-RESULTADO         
      * Resultado: FUNCTION LENGTH - 0000000210