La función del sistema sysLib.audit escribe un registro en el diario CICS.
Los primeros 2 bytes contienen la longitud del registro a escribir. Los 2 bytes siguientes contienen un código especificado por el usuario para identificar el origen del registro del diario y el primer byte de ese código debe estar en el rango X'A0' a X'FF'.
Además de contener la longitud de registro y el código identificador de registros, los primeros 28 bytes están reservados para la utilización del sistema y no deben contener datos de usuario. Los bytes del 29 al 32767 están disponibles para datos de auditoría.
sysVar.errorCode recibe uno de los códigos de estado en la tabla siguiente si incluye sysLib.audit en un bloque try...end o si está en la modalidad de compatibilidad de generador de VisualAge y VGVar.handleSysLibraryErrors está establecido en 1.
Valor en sysVar.errorCode | Descripción |
---|---|
00000000 | Realización satisfactoria |
00000201 | Error de longitud |
00000202 | Error de código fuente de usuario |
00000204 | Error de identificador de diario |
00000803 | Error de E/S |
Si la portabilidad entre entornos CICS y no CICS es necesaria, puede desarrollar un programa no EGL con el mismo nombre que la función del sistema (audit) para recibir la llamada de servicio en entornos no CICS. Al generar para un entorno en el que no esté soportado el servicio, el generador convierte la llamada de función en una llamada al programa con el mismo nombre. Además, si el servicio no está soportado en el entorno no CICS, puede probar el valor de sysVar.sysType para determinar el entorno de tiempo de ejecución e invocar sysLib.audit solo si está ejecutando en CICS.
move 32765 to wrkrec.length; move "A" to wrkrec.code; move 2 to jrnlid; move "ESTOS SON LOS DATOS A ESCRIBIR EN EL NÚMERO DE DIARIO 2" to wrkrec.data; sysLib.audit(wrkrec, jrnlid);