Cobol en español
MANUALES
TEMATICOS
BASES DE DATOS
COBOL / WINDOWS
COBOL / UNIX
HISTORIA /DOCS
PROGRAMANDO-Dos
TRUCOS
AÑO 2.000
TEORIA POWCOB-3
PROG. POWCOB-3
TEORIA POWCOB-5
PROG. POWCOB-5
OCX-ESCOBOL
Manuales
TEMARIOIntroducción
Identification Division
Environment Division
Data Division
Procedure Division
Instr. de Cálculo
Instr. de Archivos
Instr. de Pantalla
Instr. de Variables
Instrucción Perform

Instr. de Variables

página(s) : 3/5
(5707 palabras totales en este texto)
(124419 Lecturas)   Versión Imprimible



Formato 2:

INSPECT campo1
       REPLACING variable1 CHARACTERS BY Cambio1
         (( BEFORE/AFTER) INITIAL)
Cadena1
                  (ALL)(LEADING)( FIRST) Cadena2...
        (Se puede repetir de nuevo)

Con este formato podemos cambiar caracteres de Campo1, su funcionamiento es igual que el anterior formato solo que en vez de contar reemplaza. Se ha incluido solo FIRST, que indicaría que solo se reemplazaría la primera vez que coincidieran las condiciones. El tamaño de la sustitución debe de ser igual al tamaño sustituido, ya que la variable campo1 no puede cambiar su tamaño.

...
WORKING-STORAGE SECTION.
77  TEXTO PIC X(15) VALUE "PAGINA DE COBOL".
77  CONTA PIC 9(8).
...
PROCEDURE DIVISION.
INICIO.
     INSPECT TEXTO REPLACING CHARACTERS BY "H".
...
El valor de TEXTO será "HHHHHHHHHHHHHHH", es decir cambia todos los caracteres por el caracter H.

     INSPECT TEXTO REPLACING ALL "A" BY "I".
...
El valor de TEXTO será "PIGINI DE COBOL", es decir ha cambiado todas las A por I.

     INSPECT TEXTO REPLACING FIRST "A" BY "O".
...
El valor de TEXTO será "POGINA DE COBOL", solo cambia la primera A por una O.

     MOVE "PAGIPATOPETOPA" TO TEXTO.
     INSPECT TEXTO REPLACING ALL "PA" BY "--"
              AFTER INITIAL "G"  BEFORE INITIAL "T".
...
Complicando un poco mas, el valor de TEXTO despueés de la sentencia INSPECT será PAGI--TOPETOPA, es decir se cambia todas las PA por -- pero empezando a buscar a partir de la primera letra G y justo hasta la letra T.

       MOVE "PAGIPATOPETOPA" TO TEXTO.
       INSPECT TEXTO TALLYING CONTA FOR ALL "PA"
                   REPLACING ALL "TO" BY "PO" AFTER INITIAL "OP".
...
Aquí hemos mezclado ambos formatos y el resultado es el siguiente. El valor de CONTA es 3 que son las veces que aparece la cadena PA en TEXTO y después se ejecuta el REPLACING y el resultado da que TEXTO vale PAGIPATOPEPOPA, ya que ha cambiado todos los TO por PO pero después de la cadena OP.


Formato 3:


INSPECT
campo1
        CONVERTING Identificador1 TO Identificador2
          (( BEFORE/AFTER) INITIAL) Cadena1 ...           (Se puede repetir de nuevo)

Con este formato convertimos los caracteres que se especifiquen en identificador1 por los que pongamos en identificador2, respetando el orden.

Veamos algunos ejemplos, se suele utilizar mucho para que al aceptar un campo nos de igual se ha sido introducido en mayúsculas o en minúsculas ya que lo convertiriamos a alguno de los formatos.

...
WORKING-STORAGE SECTION.
77  TEXTO PIC X(15) VALUE "PAGINA DE COBOL".
...
PROCEDURE DIVISION.
INICIO.
     INSPECT TEXTO CONVERTING "AO"TO "12".
...
El valor de TEXTO será "P1GIN1 DE C2B2L", convertirá todas las A por 1 y todas las O por 2.

     INSPECT TEXTO CONVERTING               " ABCDEFGHIJKLMNÑOPQRSTUVWXYZ" TO
                "abcdefghijklmnñopqrstuvwxyz".
...
El valor de TEXTO será "pagina de cobol" ya que ha convertido todas las letras mayúsculas por minúsculas.


Para finalizar con el comando INSPECT, decir que es un comando muy particular y cada uno deberá decidir en cada momento y con que situaciones utilizarlo.

(2/5) Anterior |    Inicio de Página    | Siguiente (4/5)
Sitio desarrollado con PHP-Nuke. Todos los Derechos Reservados.
PHP-Nuke es un Software Libre realizado con licencia GNU/GPL.
Página creada en Junio de 1.998, con el proposito de difundir el lenguaje Cobol en nuestra lengua.
Andres Montes [98/11]