El Proyecto | Sobre nosotros | Contribuir | Donaciones | Licencia

HOME

En este módulo, aprenderemos cómo integrar programas RPG con servicios web. Los servicios web permiten que las aplicaciones se comuniquen entre sí a través de la web, lo que es esencial para la interoperabilidad en el desarrollo de software moderno.

Objetivos del Módulo

Comprender qué son los servicios web y su importancia.
Aprender a consumir servicios web desde un programa RPG.
Implementar un servicio web utilizando RPG.
Manejar datos en formato JSON y XML en el contexto de servicios web.

¿Qué son los Servicios Web?

Los servicios web son interfaces que permiten la comunicación entre diferentes aplicaciones a través de la web. Utilizan protocolos estándar como HTTP y formatos de datos como XML y JSON para intercambiar información.

Tipos de Servicios Web

SOAP (Simple Object Access Protocol): Utiliza XML para el intercambio de información y es conocido por su robustez y extensibilidad.
REST (Representational State Transfer): Utiliza HTTP y es más ligero y fácil de usar que SOAP. Los datos se pueden intercambiar en formatos como JSON y XML.

Consumir Servicios Web desde RPG

Para consumir un servicio web desde un programa RPG, generalmente se utiliza una combinación de APIs y herramientas disponibles en el entorno IBM i.

Pasos para Consumir un Servicio Web RESTful

Configurar el Entorno:
- Asegúrate de tener acceso a las APIs HTTP de IBM i.
- Configura las bibliotecas necesarias.
Escribir el Código RPG:
- Utiliza las APIs HTTP para enviar solicitudes y recibir respuestas.

Ejemplo Práctico: Consumir un Servicio Web RESTful

Supongamos que queremos consumir un servicio web que devuelve información sobre el clima en formato JSON.

H DFTACTGRP(*NO) ACTGRP(*NEW)

Dcl-S url Varchar(256) Inz('http://api.weatherapi.com/v1/current.json?key=YOUR_API_KEY&q=London');
Dcl-S response Varchar(10000);
Dcl-S httpStatus Int(10);

Dcl-Pr http_get Pointer ExtProc('http_get');
  url Pointer Value;
  response Pointer;
  responseSize Int(10) Value;
  httpStatus Int(10) Value;
End-Pr;

Dcl-Pi *N;
End-Pi;

Dcl-S responsePtr Pointer;
Dcl-S responseSize Int(10) Inz(%Size(response));
Dcl-S responseData Varchar(10000);

responsePtr = %Addr(response);
httpStatus = http_get(%Addr(url): responsePtr: responseSize);

If httpStatus = 200;
  responseData = %Str(responsePtr);
  Dsply responseData;
Else;
  Dsply 'Error in HTTP request';
EndIf;

*Inlr = *On;

Explicación del Código

Declaraciones: Se declaran las variables necesarias, incluyendo la URL del servicio web y la variable para almacenar la respuesta.
Llamada a la API HTTP: Se utiliza una API HTTP para enviar una solicitud GET a la URL del servicio web.
Manejo de la Respuesta: Si la solicitud es exitosa (estado HTTP 200), se muestra la respuesta. De lo contrario, se muestra un mensaje de error.

Implementar un Servicio Web con RPG

Para implementar un servicio web utilizando RPG, puedes utilizar herramientas como Integrated Web Services (IWS) de IBM.

Pasos para Implementar un Servicio Web

Crear el Programa RPG:
- Escribe el programa RPG que realizará la lógica del negocio.
Configurar el Servicio Web:
- Utiliza IWS para exponer el programa RPG como un servicio web.

Ejemplo Práctico: Implementar un Servicio Web

Supongamos que queremos implementar un servicio web que devuelve un saludo personalizado.

H DFTACTGRP(*NO) ACTGRP(*NEW)

Dcl-Pi *N;
  name Varchar(50);
  greeting Varchar(100);
End-Pi;

greeting = 'Hello, ' + name + '!';

Return;

Configuración del Servicio Web

Acceder a IWS:
- Inicia sesión en la consola de administración de IBM i y navega a la sección de Integrated Web Services.
Crear un Nuevo Servicio:
- Sigue las instrucciones para crear un nuevo servicio web, seleccionando el programa RPG que acabas de escribir.
Probar el Servicio:
- Utiliza herramientas como Postman para enviar solicitudes al servicio web y verificar su funcionamiento.

Manejo de Datos en Formato JSON y XML

JSON

JSON (JavaScript Object Notation) es un formato de datos ligero y fácil de leer. Es comúnmente utilizado en servicios web RESTful.

Ejemplo de JSON

{
  "name": "John",
  "age": 30,
  "city": "New York"
}

XML

XML (eXtensible Markup Language) es un formato de datos más robusto y extensible. Es comúnmente utilizado en servicios web SOAP.

Ejemplo de XML

<person>
  <name>John</name>
  <age>30</age>
  <city>New York</city>
</person>

Ejercicio Práctico

Ejercicio 1: Consumir un Servicio Web RESTful

Encuentra un servicio web público que devuelva datos en formato JSON.
Escribe un programa RPG que consuma este servicio web y muestre los datos en la consola.

Ejercicio 2: Implementar un Servicio Web

Escribe un programa RPG que realice una operación simple, como sumar dos números.
Configura este programa como un servicio web utilizando IWS.
Prueba el servicio web utilizando una herramienta como Postman.

Soluciones

Solución al Ejercicio 1

H DFTACTGRP(*NO) ACTGRP(*NEW)

Dcl-S url Varchar(256) Inz('http://api.example.com/data');
Dcl-S response Varchar(10000);
Dcl-S httpStatus Int(10);

Dcl-Pr http_get Pointer ExtProc('http_get');
  url Pointer Value;
  response Pointer;
  responseSize Int(10) Value;
  httpStatus Int(10) Value;
End-Pr;

Dcl-Pi *N;
End-Pi;

Dcl-S responsePtr Pointer;
Dcl-S responseSize Int(10) Inz(%Size(response));
Dcl-S responseData Varchar(10000);

responsePtr = %Addr(response);
httpStatus = http_get(%Addr(url): responsePtr: responseSize);

If httpStatus = 200;
  responseData = %Str(responsePtr);
  Dsply responseData;
Else;
  Dsply 'Error in HTTP request';
EndIf;

*Inlr = *On;

Solución al Ejercicio 2

Programa RPG:

H DFTACTGRP(*NO) ACTGRP(*NEW)

Dcl-Pi *N;
  num1 Int(10);
  num2 Int(10);
  result Int(10);
End-Pi;

result = num1 + num2;

Return;

Configuración en IWS:
- Sigue los pasos en la consola de administración de IBM i para crear un nuevo servicio web y selecciona el programa RPG anterior.
Prueba del Servicio:
- Utiliza Postman para enviar una solicitud al servicio web y verifica que la respuesta sea correcta.

Conclusión

En este módulo, hemos aprendido a consumir e implementar servicios web utilizando RPG. Hemos cubierto los conceptos básicos de los servicios web, cómo manejar datos en formato JSON y XML, y hemos realizado ejercicios prácticos para reforzar el aprendizaje. Con estos conocimientos, estarás preparado para integrar tus aplicaciones RPG con servicios web y aprovechar las ventajas de la interoperabilidad en el desarrollo de software moderno.

Servicios Web