lunes, 9 de febrero de 2009

Monitorizar F3 en mandato

Como controlar si un usuario a salido pulsando F3 o F12 de la ejecución de un mandato en un programa CL interactivo.

Para ello solo hemos de monitorizar el mensaje CPF6801 en el programa, por ejemplo:

PGM
....
?DSPLOG
MONMSG MSGID(CPF6801) EXEC(GOTO END)
...
END:
RETURN
ENDPGM

martes, 3 de febrero de 2009

Calcular tamaño objeto

Para obtener el tamaño de un objeto de más de 10 Gbytes, con DSPOBJD a *OUTFILE, hay que realizar la siguiente operacion ODSIZU * ODBPUN, ya que el campo ODOBSZ esta definido 10,0 Packed y no admite objetos mayores.