En esta sección, aprenderás a escribir tu primer programa en Lenguaje de Control (CL). Este módulo te guiará paso a paso a través del proceso de creación, compilación y ejecución de un programa CL básico.

Objetivos de Aprendizaje

  • Comprender la estructura básica de un programa CL.
  • Aprender a escribir y guardar un programa CL.
  • Compilar y ejecutar el programa CL.

  1. Estructura Básica de un Programa CL

Un programa CL generalmente sigue una estructura específica que incluye:

  • Declaración de Variables: Definición de las variables que se utilizarán en el programa.
  • Comandos CL: Instrucciones que el programa ejecutará.
  • Comentarios: Notas que explican el código, no son ejecutadas.

Ejemplo de Estructura Básica

PGM        /* Inicio del programa */
DCL        VAR(&MSG) TYPE(*CHAR) LEN(50) /* Declaración de variable */
CHGVAR     VAR(&MSG) VALUE('Hola, Mundo!') /* Asignación de valor a la variable */
SNDPGMMSG  MSG(&MSG) /* Envío de mensaje */
ENDPGM     /* Fin del programa */

  1. Escribiendo el Programa

Paso 1: Crear el Archivo del Programa

  1. Abre tu editor de texto preferido.
  2. Crea un nuevo archivo y nómbralo HELLOCL.CLLE.

Paso 2: Escribir el Código

Copia el siguiente código en tu archivo HELLOCL.CLLE:

PGM        /* Inicio del programa */
DCL        VAR(&MSG) TYPE(*CHAR) LEN(50) /* Declaración de variable */
CHGVAR     VAR(&MSG) VALUE('Hola, Mundo!') /* Asignación de valor a la variable */
SNDPGMMSG  MSG(&MSG) /* Envío de mensaje */
ENDPGM     /* Fin del programa */

Explicación del Código

  • PGM: Marca el inicio del programa.
  • DCL VAR(&MSG) TYPE(*CHAR) LEN(50): Declara una variable llamada &MSG de tipo carácter con una longitud de 50.
  • CHGVAR VAR(&MSG) VALUE('Hola, Mundo!'): Asigna el valor 'Hola, Mundo!' a la variable &MSG.
  • SNDPGMMSG MSG(&MSG): Envía el contenido de la variable &MSG como un mensaje del programa.
  • ENDPGM: Marca el fin del programa.

  1. Compilando el Programa

Paso 1: Acceder al Sistema

Accede a tu sistema IBM i (AS/400) utilizando tu terminal o emulador de terminal.

Paso 2: Compilar el Programa

Usa el siguiente comando para compilar tu programa:

CRTCLPGM PGM(LIBRARY/HELLOCL) SRCFILE(LIBRARY/QCLSRC) SRCMBR(HELLOCL)
  • LIBRARY: Reemplaza con el nombre de tu biblioteca.
  • SRCFILE: Reemplaza con el nombre de tu archivo fuente.
  • SRCMBR: Reemplaza con el nombre del miembro fuente.

  1. Ejecutando el Programa

Paso 1: Ejecutar el Programa

Usa el siguiente comando para ejecutar tu programa:

CALL PGM(LIBRARY/HELLOCL)
  • LIBRARY: Reemplaza con el nombre de tu biblioteca.

Paso 2: Verificar la Salida

Deberías ver el mensaje 'Hola, Mundo!' en la pantalla.

Ejercicio Práctico

Ejercicio 1: Modificar el Mensaje

Modifica el programa para que envíe el mensaje 'Bienvenido al Lenguaje de Control!'.

Solución

PGM        /* Inicio del programa */
DCL        VAR(&MSG) TYPE(*CHAR) LEN(50) /* Declaración de variable */
CHGVAR     VAR(&MSG) VALUE('Bienvenido al Lenguaje de Control!') /* Asignación de valor a la variable */
SNDPGMMSG  MSG(&MSG) /* Envío de mensaje */
ENDPGM     /* Fin del programa */

Ejercicio 2: Añadir un Segundo Mensaje

Modifica el programa para que envíe dos mensajes consecutivos: 'Hola, Mundo!' y 'Bienvenido al Lenguaje de Control!'.

Solución

PGM        /* Inicio del programa */
DCL        VAR(&MSG1) TYPE(*CHAR) LEN(50) /* Declaración de la primera variable */
DCL        VAR(&MSG2) TYPE(*CHAR) LEN(50) /* Declaración de la segunda variable */
CHGVAR     VAR(&MSG1) VALUE('Hola, Mundo!') /* Asignación de valor a la primera variable */
CHGVAR     VAR(&MSG2) VALUE('Bienvenido al Lenguaje de Control!') /* Asignación de valor a la segunda variable */
SNDPGMMSG  MSG(&MSG1) /* Envío del primer mensaje */
SNDPGMMSG  MSG(&MSG2) /* Envío del segundo mensaje */
ENDPGM     /* Fin del programa */

Conclusión

En esta lección, has aprendido a escribir, compilar y ejecutar tu primer programa en Lenguaje de Control (CL). Ahora tienes una comprensión básica de la estructura de un programa CL y cómo utilizar comandos básicos para realizar tareas simples. En el próximo módulo, profundizaremos en los comandos básicos de CL para gestionar archivos, trabajos y el sistema.

© Copyright 2024. Todos los derechos reservados