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.

 
Reformas en Madrid, rehabilitación de fachadas Enlaces promoción Web Despedidas de solteros Madrid, strippers, boys Fotografo profesional, book de fotos