Alquimista de código

Continuamos con esta serie de entregas sobre el lenguaje COBOL . En esta ocasión veremos: Ejemplos del uso del verbo ``PERFORM``. Ejemplos de uso de sentencias ``GO TO``. Ejemplos de campos empacados. Ejemplos del uso de los verbos ``MOVE``, ``ADD``, ``SUBTRACT``, etc. Ejemplos del uso de ``COMPUTE``. PERFORM Una instrucción que nos permite transferir el control a otro u otros procedimientos o bien realizar una serie de sentencias dentro de ella misma mientras se cumplan las condiciones que le hayamos indicado. Permite retornar a la línea inmediata, contrario a la instrucción```GOT TO``. parrafos.cbl IDENTIFICATION DIVISION . PROGRAM-ID . PARRAFOS. DATA DIVISION . WORKING-STORAGE SECTION . 01 WS-N1 PIC 9(3) VALUE 5 . 01 WS-N2 PIC 9(4) VALUE 7 . 01 WS-N3 PIC 9(4) VALUE 8 . 01 WS-NA PIC 9(3) VALUE 80 . 01 WS-NB PIC 9(3) VALUE 20 . 01 WS-NC PIC 9(3) . PROCEDURE DIVISION . INICIO. PERFORM PRESENTACION. PER...

Párrafos. Son similares a las etiquetas de batch cmd . Debajo se escriben los bloques de código. Ejemplos. PERFORM DISPLAY 'PARRAFO' . END-PERFORM VER-DATOS. DISPLAY DATO. FINALIZAR. STOP RUN . Invocar un párrafo. PERFORM VER-DATOS. PERFORM FINALIZAR. Uso de IF y operadores OR, AND y NOT. *> IF X = Y THEN IF X EQUAL Y THEN *> IF X < Y THEN IF LESS THEN Y THEN *> IF <= Y THEN IF LESS OR EQUAL Y THEN *> IF X > Y THEN IF GREATER THAN OR EQUAL Y THEN *> IF X NOT = Y THEN IF X NOT EQUAL Y THEN *> IF X NOT < Y THEN IF X NOT LESS THAN Y THEN *> IF X NOT > Y THEN IF X NOT GREATER THAN Y THEN *> IF X = Y THEN IF X EQUAL Y THEN *> IF X < Y THEN IF LESS THEN Y THEN *> IF <= Y THEN IF LESS OR EQUAL Y THEN *> IF X > Y THEN IF GREATER THAN OR ...