index
RECURSOS GRATUITOS, CIBERACTIVISMO
  Navegación-> Inicio | AS/400 | Mandatos


By
David Gómez Bueno

AS/400
Introducción
Aquitectura Sistema
Orientación Objetos
Estructura Ctrl. Leng
Bibliotecas
Mensajes
Valores del Sistema
Usuarios
Estructura AS/400
Herramientas
Prácticas
Operaciones
Teclas Función
Programación1
Mandatos
Contacto
Curso de iniciación de AS/400


Mandatos para trabajar con cadenas:

1º- Concatenación:
*CAT --> Une las cadenas independientemente de su contenido, y respeta los espacios en blanco de la cadena.
*BCAT --> Une manteniendo siempre un espacio en blanco, solo uno independientemente de la longitud de la cadena.
*TCAT --> Trunca (elimina) todos los espacios en blanco, solo respeta los finales.

CHGVAR VAR(&RE) VALUE(&C1 *TCAT &C2 *TCAT &C3)

2º- Extracción:
%SST --> tiene tres parámetros:
%SST (cadena_original posición_inicial_para_extraer nº_de_caracteres)

Se usa igual que en la concatenación: VALUE(%SST(... 3 3))

Recuperación de atributos de trabajo:

El lenguaje CL permite recuperar atributos, por ejemplo la variable “PANTALLA: +O(10)”

RTVJOBA JOB(&SALIDA)

Lo mete dentro de la variable &SALIDA el número de dispositivo.

Captura de mensajes de error:

Son los mensajes de error que da el propio sistema cuando pasa algo.
PGM
DCLF FILE(PAN)
SNDRCVF
CRTLIB LIB(&NB)
MONMSG MSGID(MCHO421) EXEC(DO)
CHGVAR VAR(&MENSAJE) VALUE(‘Biblioteca ya existe’)
SNDRCVF
ENDDO
ENDPGM

Nombre: __________ --> Esto último (lo subrayado) es la variable NB.
Capturar estos mensajes del sistema --> MONMSG (monitoriza el mensaje).
EXEC(DO) --> Ese DO es lo que se ejecutará si se produce dicho error.