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.
|