SysLib.audit( registro anyBasicRecord in [, jid SMALLINT in ])
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 de 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. Como alternativa, 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() sólo si está ejecutando en CICS.
El registro se convierte automáticamente al formato de anotaciones de IMS cuando EGL añade 2 a la longitud e inserta 2 bytes de ceros binarios a continuación del campo de longitud. Sólo se utiliza el primer byte del código identificador de registro. El segundo byte del código identificador de registro se pasa por alto. El parámetro jid se pasa por alto. IMS/VS tiene un límite máximo de 32765 bytes.
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);
Conceptos relacionados
Diagrama de sintaxis para funciones EGL
Consulta relacionada
Elemento asynchLink
Biblioteca SysLib de EGL
errorCode
printerAssociation
transfer