El Proyecto | Sobre nosotros | Contribuir | Donaciones | Licencia

HOME

En este tema, exploraremos cómo los programas pueden interactuar con los servicios del sistema en OpenVMS. Los servicios del sistema proporcionan una interfaz para realizar operaciones a nivel del sistema operativo, como la gestión de procesos, la manipulación de archivos y la comunicación entre procesos.

Conceptos Clave

Servicios del Sistema: Funciones proporcionadas por el sistema operativo que permiten a los programas realizar tareas específicas.
Llamadas a Servicios del Sistema: Invocaciones a funciones del sistema operativo desde un programa.
Bibliotecas de Servicios del Sistema: Conjuntos de funciones que encapsulan las llamadas a los servicios del sistema.

Tipos de Servicios del Sistema

Los servicios del sistema en OpenVMS se pueden clasificar en varias categorías:

Gestión de Procesos: Creación, terminación y control de procesos.
Gestión de Archivos: Operaciones de lectura, escritura y manipulación de archivos.
Comunicación entre Procesos: Mecanismos para la comunicación y sincronización entre procesos.
Gestión de Memoria: Asignación y liberación de memoria.

Ejemplo Práctico: Uso de Servicios del Sistema en C

A continuación, veremos un ejemplo de cómo utilizar servicios del sistema en un programa escrito en C. Este ejemplo muestra cómo crear un proceso hijo y esperar a que termine.

Código de Ejemplo

#include <stdio.h>
#include <stdlib.h>
#include <descrip.h>
#include <lib$routines.h>
#include <ssdef.h>
#include <starlet.h>

int main() {
    // Descriptores para el nombre del programa y los argumentos
    struct dsc$descriptor_s image_dsc;
    struct dsc$descriptor_s arg_dsc;

    // Nombre del programa a ejecutar
    char image_name[] = "SYS$SYSTEM:LOGINOUT.EXE";
    image_dsc.dsc$w_length = sizeof(image_name) - 1;
    image_dsc.dsc$a_pointer = image_name;
    image_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
    image_dsc.dsc$b_class = DSC$K_CLASS_S;

    // Argumentos del programa
    char arg[] = "username";
    arg_dsc.dsc$w_length = sizeof(arg) - 1;
    arg_dsc.dsc$a_pointer = arg;
    arg_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
    arg_dsc.dsc$b_class = DSC$K_CLASS_S;

    // Variables para el ID del proceso y el estado
    unsigned long proc_id;
    unsigned long status;

    // Crear el proceso hijo
    status = lib$spawn(&image_dsc, &arg_dsc, 0, 0, 0, &proc_id, 0, 0, 0, 0);
    if (!(status & 1)) {
        printf("Error al crear el proceso: %d\n", status);
        exit(1);
    }

    // Esperar a que el proceso hijo termine
    status = sys$waitfr(proc_id);
    if (!(status & 1)) {
        printf("Error al esperar el proceso: %d\n", status);
        exit(1);
    }

    printf("Proceso hijo terminado.\n");
    return 0;
}

Explicación del Código

Descriptores: Se utilizan descriptores (dsc$descriptor_s) para pasar cadenas de caracteres a los servicios del sistema.
lib$spawn: Este servicio del sistema crea un nuevo proceso. Los parámetros incluyen el nombre del programa a ejecutar y los argumentos.
sys$waitfr: Este servicio espera a que un proceso específico termine. Se pasa el ID del proceso creado por lib$spawn.

Ejercicio Práctico

Ejercicio: Modifica el programa anterior para que el proceso hijo ejecute un comando DCL específico, como SHOW SYSTEM.

Solución:

#include <stdio.h>
#include <stdlib.h>
#include <descrip.h>
#include <lib$routines.h>
#include <ssdef.h>
#include <starlet.h>

int main() {
    // Descriptores para el nombre del programa y los argumentos
    struct dsc$descriptor_s image_dsc;
    struct dsc$descriptor_s arg_dsc;

    // Nombre del programa a ejecutar
    char image_name[] = "SYS$SYSTEM:LOGINOUT.EXE";
    image_dsc.dsc$w_length = sizeof(image_name) - 1;
    image_dsc.dsc$a_pointer = image_name;
    image_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
    image_dsc.dsc$b_class = DSC$K_CLASS_S;

    // Argumentos del programa
    char arg[] = "SHOW SYSTEM";
    arg_dsc.dsc$w_length = sizeof(arg) - 1;
    arg_dsc.dsc$a_pointer = arg;
    arg_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
    arg_dsc.dsc$b_class = DSC$K_CLASS_S;

    // Variables para el ID del proceso y el estado
    unsigned long proc_id;
    unsigned long status;

    // Crear el proceso hijo
    status = lib$spawn(&image_dsc, &arg_dsc, 0, 0, 0, &proc_id, 0, 0, 0, 0);
    if (!(status & 1)) {
        printf("Error al crear el proceso: %d\n", status);
        exit(1);
    }

    // Esperar a que el proceso hijo termine
    status = sys$waitfr(proc_id);
    if (!(status & 1)) {
        printf("Error al esperar el proceso: %d\n", status);
        exit(1);
    }

    printf("Proceso hijo terminado.\n");
    return 0;
}

Retroalimentación y Consejos

Errores Comunes: Asegúrate de que los descriptores estén correctamente inicializados. Un error común es no establecer correctamente la longitud de la cadena.
Depuración: Utiliza mensajes de depuración para verificar el estado de las llamadas a los servicios del sistema.
Documentación: Consulta la documentación de OpenVMS para obtener detalles sobre los servicios del sistema y sus parámetros.

Conclusión

En esta sección, hemos aprendido cómo interactuar con los servicios del sistema en OpenVMS utilizando el lenguaje de programación C. Hemos visto un ejemplo práctico de cómo crear y esperar a que termine un proceso hijo. Estos conceptos son fundamentales para desarrollar aplicaciones robustas y eficientes en OpenVMS. En el próximo módulo, exploraremos el clustering en OpenVMS, una característica avanzada que permite la alta disponibilidad y el balanceo de carga.

Interfaz con Servicios del Sistema

Conceptos Clave

Tipos de Servicios del Sistema

Ejemplo Práctico: Uso de Servicios del Sistema en C

Código de Ejemplo

Explicación del Código

Ejercicio Práctico

Retroalimentación y Consejos

Conclusión

Curso de Programación en OpenVMS

Módulo 1: Introducción a OpenVMS

Módulo 2: Comandos Básicos de OpenVMS

Módulo 3: Sistema de Archivos de OpenVMS

Módulo 4: Scripting con DCL

Módulo 5: Gestión del Sistema OpenVMS

Módulo 6: Redes en OpenVMS

Módulo 7: Programación Avanzada en OpenVMS

Módulo 8: Clustering en OpenVMS

Módulo 9: Seguridad en OpenVMS

Módulo 10: Solución de Problemas y Optimización