api CEERTX usage

Hi all

I'm try to use CEERTX api for checking abnormal end job;

i noticed that if call CEERTX from a subroutine (BEGSR) it works, buti if
call from it another procedure (PI), doesn't work. Possible that the problem
was due from where i call CEERTX ?



This is Ok

C xeg_Abnormal BegSr

C eval p_AbnEnd =
%paddr('PRI_ABNORMAL')

C callp CEERTX(p_AbnEnd: *OMIT
:*OMIT)

C EndSr



This KO

P reg_Abnormal B

D reg_Abnormal PI

D p_AbnEnd S * procptr

C eval p_AbnEnd = %paddr('PRI_ABNORMAL')

C callp CEERTX(p_AbnEnd: *OMIT :*OMIT)

C

P E



--
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus