Aporte, quisiera tu observaci贸n en el c贸digo, es que estoy haciendo muchos IF como puede agruparlos en uno sola lineal de c贸digo, si se puede
Tus primeros pasos con COBOL
Fundamentos B谩sicos de Programaci贸n en Cobol
Estructura y Divisiones de Programas COBOL
Configuraci贸n de un entorno de desarrollo emulando mainframe IBM
Configuraci贸n de Terminal WC3270 en Entorno de Desarrollo
Instalaci贸n del emulador MVS en Ubuntu
Instalaci贸n del emulador MVS en macOS
Creaci贸n y Gesti贸n de Directorios en Entorno Cobol
Comandos esenciales en ISPF para programar en COBOL
Consola y L铆nea de Comandos en Entornos de Desarrollo Cobol
Ejecuci贸n de Programas Cobol en Mainframe MBS
Primer Programa "Hola Mundo" en COBOL: Paso a Paso
Quiz: Tus primeros pasos con COBOL
JCL: Job Control Language
Lenguaje JCL: Enlace Crucial entre Cobol y Mainframe
Par谩metros y Estructura de un JCL en Mainframe
Codificaci贸n de Utiler铆as JCL en Mainframe: IEFBR14 y Par谩metros
Utilizaci贸n de la utiler铆a IEBener para crear respaldos de archivos
Creaci贸n de un JCL para Compilar en Mainframe
Creaci贸n y Ejecuci贸n de un JCL para Programa Hola Mundo en Cobol
Quiz: JCL: Job Control Language
Tipos de datos y operaciones matem谩ticas
Tipos de Datos y Convenciones en Programaci贸n Cobol
Despliegue de Variables en Consola con COBOL
Operaciones Matem谩ticas en Cobol con Sentencia Compute
Quiz: Tipos de datos y operaciones matem谩ticas
Estructuras de control
Estructura de Control If-Else en COBOL
Estructuras de Control: Perform Times y Perform Until en COBOL
Algoritmos y resoluci贸n de problemas
Programaci贸n Top-Down y Modularidad en COBOL
Quiz: Algoritmos y resoluci贸n de problemas
Despedida
Curso Pr谩ctico de Cobol: Creaci贸n de Reportes con JCL
No tienes acceso a esta clase
隆Contin煤a aprendiendo! 脷nete y comienza a potenciar tu carrera
La programaci贸n en COBOL te brinda una oportunidad 煤nica para adquirir habilidades que pueden transformarse en un empleo estable y de larga duraci贸n. Con este conocimiento, te sumerges en el mundo de la l贸gica y las decisiones, reflejado en la estructura if else. Aqu铆 te explicaremos c贸mo crear un programa sencillo que utilice esta estructura de control, paso a paso.
cree if else
.it else
y elimina cualquier comando de display innecesario.Dentro de la secci贸n de datos del programa, es crucial establecer las constantes que se utilizar谩n durante la ejecuci贸n:
Dir铆gete a la secci贸n Data Division, espec铆ficamente dentro de Working Storage Section.
Define tus constantes a partir de la fila n煤mero 12:
05 WSC-A PIC 9 VALUE 7.
05 WSC-B PIC 9 VALUE 9.
Aqu铆, WSC-A
y WSC-B
son constantes con un valor predeterminado de 7 y 9, respectivamente.
Ahora, vamos a definir la l贸gica dentro de Procedure Division:
Realiza un llamado al p谩rrafo 010-IF
desde la columna n煤mero 12:
PERFORM 010-IF.
Crea el p谩rrafo 010-IF
:
010-IF.
IF WSC-A < WSC-B THEN
DISPLAY "El valor de " WSC-A " es menor que " WSC-B
ELSE
DISPLAY "El valor de " WSC-A " es mayor que " WSC-B.
Define el p谩rrafo final 020-FIN
:
020-FIN.
STOP RUN.
Para verificar que tu programa funcione correctamente:
F3
para ir a la carpeta JCLs.EXEC IF
para comprobar que la ejecuci贸n es exitosa.A fin de entender c贸mo funciona el flujo de control:
WSC-B
a 5.Te animo a experimentar cambiando los valores de las constantes y definiciones de texto en cada display. Esto te permitir谩 ver c贸mo cada ejecuci贸n refleja el camino l贸gico definido por tus condiciones. 隆Contin煤a explorando y codificando, y prep谩rate para el pr贸ximo m贸dulo sobre la estructura de control perform!
Aportes 4
Preguntas 7
Aporte, quisiera tu observaci贸n en el c贸digo, es que estoy haciendo muchos IF como puede agruparlos en uno sola lineal de c贸digo, si se puede
Hola:
M谩s sobre PERFORM.
Saludos.
++sintaxis ++
IF [condition] THEN
[COBOL statements]
ELSE
[COBOL statements]
END-IF.
link para apoyo en el caso de if else en cobol :https://www.tutorialspoint.com/es/cobol/cobol_condition_statements.htm
驴Quieres ver m谩s aportes, preguntas y respuestas de la comunidad?