> -----Mensaje original-----
> De: [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED]]
> Enviado el: viernes, 29 de noviembre de 2002 11:43
> Para: [EMAIL PROTECTED]
> Asunto: Recuperar programa que dispara un trigger
>
> Hola foro,
>
> Necesito recuperar el programa que ha disparado un trigger.
>
> Algui�n conoce alg�n mandato o API que pueda recuperarme ese valor ?
>
Yo tengo la utilidad CallerId (publicada en News/400) modificada
para poder usarse tanto en programas ILE como OPM (la estructura de la pila
de llamadas es distinta en cada caso). Aqu� va, espero te sirva.
<<calleid.rpgle>>
> _____________________________________________________
> Forum.HELP400 es un servicio m�s de NEWS/400.
> � Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja, env�a el mensaje resultante de pulsar
> mailto:[EMAIL PROTECTED]?body=LEAVE
begin 600 calleid.rpgle
M("`@("`@*@T*("`@("`@*B`@3D]-0E)%+BXN+BXN+CH@0T%,3$52240-"B`@
M("`@("H@($1%4T-225!#24].+BXZ(%!R;V=R86UA('%U92!R96-U<&5R82!E
M;"!N;VUB<F4@9&4@<')O9W)A;6$@<75E#0H@("`@("`J("`@("`@("`@("`@
M("`@("!P<F]V;V-A('%U92!S92!A8W1I=F4@=6X@86-T:79A9&]R+@T*("`@
M("`@*@T*("`@("`@*B`@4')O9W)A;6%D;W(N+CH@3V)T96YI9&\@9&4@3F5W
M<R\T,#`@1F5B<F5R;R`Q.3DY($ZZ(#DQ#0H@("`@("`J("!&96-H82XN+BXN
M+BXN.@T*("`@("`@*@T*("`@("`@*B`@2&ES=&]R:6$Z#0H@("`@("`J("`M
M+2TM+2TM+2T-"B`@("`@("H@("!&96-H82`@(%!R;V=R86UA9&]R("`@("`@
M("!/8G-E<G9A8VEO;F5S#0H@("`@("`J("`M+2TM+2TM+2`M+2TM+2TM+2TM
M+2TM+2TM+2T@+2TM+2TM+2TM+2TM+0T*("`@("`@*B`@,C4N,#<N,#$@2DU'
M("`@("`@("`@("`@("`@($ED96YT:69I8V%R('1I<&\@9&5L('!R;V=R86UA
M(&%C=&EV861O<@T*("`@("`@*B`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@($E,12!U($]032X-"B`@("`@("H-"B`@("`@("H@($-O;7!I;&%R($-O
M;6\Z($-25%)01T).1`T*("`@("`@*@T*("`@("`@*B`@4&%RX6UE=')O<SH-
M"B`@("`@("H@("TM+2TM+2TM+2TM#0H@("`@("`J("`@(&]4:7!O5')G("@S
M6"D@/2!;3W!C:6]N86Q=($QE(&EN9&EC82!A;"!P<F]G<F%M82!C;VUO(&5S
M=.$-"B`@("`@("H@("`@("`@("`@("`@("`@("`@(&-O;7!I;&%D;R!E;"!P
M<F]G<F%M82!A8W1I=F%D;W(N($QO<R!V86QO<F5S#0H@("`@("`J("`@("`@
M("`@("`@("`@("`@("!P;W-I8FQE<R!S;VXZ#0H@("`@("`J("`@("`@("`@
M("`@("`@("`@("!)3$4@/2!)3$4@4E!'($E6#0H@("`@("`J("`@("`@("`@
M("`@("`@("`@("!)3%,@/2!344P@24Q%(%)01R!)5@T*("`@("`@*B`@("`@
M("`@("`@("`@("`@("`@3U!-(#T@4E!'('1R861I8VEO;F%L#0H@("`@("`J
M("`@("`@("`@("`@("`@("`@("!/4%,@/2!344P@4E!'('1R861I8VEO;F%L
M#0H@("`@("`J#0H@("`@("`J("!2971O<FYO.@T*("`@("`@*B`@+2TM+2TM
M+2T-"B`@("`@("H@("`@8V%L;&5R("@Q,%@I(#T@3F]M8G)E(&1E;"!P<F]G
M<F%M82!Q=64@:6YV;V/S(&5L(&%C=&EV861O<BX-"B`@("`@("H-"B`@("`@
M("H@($YO=&%S(#H-"B`@("`@("H@("TM+2TM+2T-"B`@("`@("H-"B`@("`@
M("HJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BH-"B`@("`@("H@0V%L;&5R240@+2!)9&5N
M=&EF>2!#86QL:6YG(%!R;V=R86T@("`@("`@("`@("`@("`@("`@("`@("`@
M("H-"B`@("`@("H@1G)O;3H@("`@+2!':79E(%EO=7(@5')I9V=E<B!0<F]G
M<F%M<R`K0V%L;&5R($E$+"`@("`@("`@("`@("H-"B`@("`@("H@075T;W(Z
M("`@+2!,;&]Y9"!$979I;F5Y("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("H-"B`@("`@("HJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BH-"@T*("`@
M("`@+T-O<'D@45)01TQ%4U)#+$AO:F%(4W1D7T@-"@T*("`@("`@*B!3>7-T
M96T@05!)(&5R<F]R(&-O9&4-"B`@("`@1"!1=7-E8R`@("`@("`@("`@1%,-
M"B`@("`@1"`@475S0E!R=B`@("`@("`@("`@("`@("`Q("`@("`@-$(@,`T*
M("`@("!$("!1=7-"079L("`@("`@("`@("`@("`@(#4@("`@("`X0B`P#0H@
M("`@($0@(%%U<V5I("`@("`@("`@("`@("`@("`@.2`@("`@,34-"B`@("`@
M1"`@475S97)V960@("`@("`@("`@("`@(#$V("`@("`Q-@T*#0H@("`@("`J
M(%1Y<&4@9&5F:6YI=&EO;B!F;W(@=&AE(%)#5DTP,C`P(&9O<FUA=`T*("`@
M("!$(%)#5DTP,C`P("`@("`@("!$4R`@("`@("`@("`@,3(P#0H@("`@($0@
M(%!R;V=R86T@("`@("`@("`@("`@(#$Q,2`@("`Q,C`-"@T*("`@("`@*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*@T*("`@("`@*B!3=&%N9&%L;VYE($9I96QD($1E
M9FEN:71I;VYS("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@*@T*
M("`@("`@*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*@T*#0H@("`@("`J(%!R;V=R86T@
M;65S<V%G92!P87)A;65T97)S#0H@("`@($0@4&U?37-G260@("`@("`@(%,@
M("`@("`@("`@("`@(#<@("`@26YZ*"I"3$%.2U,I#0H@("`@($0@4&U?37-G
M1B`@("`@("`@(%,@("`@("`@("`@("`@,C`@("`@26YZ*"I"3$%.2U,I#0H@
M("`@($0@4&U?37-G1'1A("`@("`@(%,@("`@("`@("`@("`@,3(@("`@26YZ
M*"=7:&\@87)E('EO=3\G*0T*("`@("!$(%!M7TQE;F=T:"`@("`@("!3("`@
M("`@("`@("`@("`Y0B`P#0H@("`@($0@4&U?351Y<&4@("`@("`@(%,@("`@
M("`@("`@("`@,3`@("`@26YZ*"<J24Y&3R<I#0H@("`@($0@4&U?34ME>2`@
M("`@("`@(%,@("`@("`@("`@("`@(#0@("`@26YZ*"I"3$%.2U,I#0H@("`@
M($0@4&U?0U-%;G1R>2`@("`@(%,@("`@("`@("`@("`@,3`@("`@26YZ*"<J
M)RD-"B`@("`@1"!0;5]#;W5N=&5R("`@("`@4R`@("`@("`@("`@("`@.4(@
M,"!);GHH-2D-"@T*("`@("!$(%!M7T9O<FUA="`@("`@("!3("`@("`@("`@
M("`@("`X("`@($EN>B@G4D-633`R,#`G*0T*("`@("!$(%!M7U=A:70@("`@
M("`@("!3("`@("`@("`@("`@("`Y0B`P($EN>B@P*0T*("`@("!$(%!M7T%C
M=&EO;B`@("`@("!3("`@("`@("`@("`@(#$P("`@($EN>B@G*E)%34]612<I
M#0H-"B`@("`@1"!T:7!O5')G("`@("`@("`@4R`@("`@("`@("`@("`@,T$@
M("!);GHH)TE,12<I#0H-"B`@("`@("HJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BH-"B`@
M("`@("H@4&%R86UE=&5R($QI<W1S("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@("`@("`@("`@("H-"B`@("`@("HJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BH-"@T*("`@("!#("`@("`J16YT<GD@("`@("`@(%!,:7-T#0H@("`@
M($,@("`@("`@("`@("`@("`@("`@4&%R;2`@("`@("`@("`@("`@("`@("`@
M8V%L;&5R("`@("`@("`@("`Q,`T*("`@("!#("`@("`@("`@("`@("`@("`@
M(%!A<FT@("`@("`@("`@("`@("`@("`@(&]4:7!O5')G("`@("`@("`@(#,-
M"@T*("`@("`@*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*@T*("`@("`@*B!-86EN(%!R
M;V=R86T@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("`@("`@*@T*("`@("`@*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*@T*#0H@("`@
M("`J($-O;G1R;VQA<B!P87+A;65T<F\@;W!T871I=F\N#0H@("`@($,@("`@
M("`@("`@("`@("`@("`@268@("`@("`@("5P87)M<R`^(#$-"B`@("`@0R`@
M("`@("`@("`@("`@("`@("!)9B`@("`@("`@;U1I<&]4<F<@/2`G24Q%)R!O
M<B!O5&EP;U1R9R`]("=/4$TG(&]R#0H@("`@($,@("`@("`@("`@("`@("`@
M("`@("`@("`@("`@(&]4:7!O5')G(#T@)TE,4R<@;W(@;U1I<&]4<F<@/2`G
M3U!3)PT*("`@("!#("`@("`@("`@("`@("`@("`@($5V86P@("`@("!T:7!O
M5')G(#T@;U1I<&]4<F<-"B`@("`@0R`@("`@("`@("`@("`@("`@("!%;F1I
M9@T*("`@("!#("`@("`@("`@("`@("`@("`@($5N9&EF#0H@("`@("`J($%C
M='5A;&EZ87(@96P@8V]N=&%D;W(@9&4@<&EL82!S96?Z;B!E;"!T:7!O(&1E
M;"!A8W1I=F%D;W(@;&QA;6%D;W(N#0H@("`@($,@("`@("`@("`@("`@("`@
M("`@4V5L96-T#0H@("`@($,J("`@($E,12!24$<@258@*'!O<B!D969E8W1O
M*0T*("`@("!#("`@("`@("`@("`@("`@("`@(%=H96X@("`@("!T:7!O5')G
M(#T@)TE,12<-"B`@("`@0RH@("`@4U%,($E,12!24$<@258-"B`@("`@0R`@
M("`@("`@("`@("`@("`@("!7:&5N("`@("`@=&EP;U1R9R`]("=)3%,G#0H@
M("`@($,@("`@("`@("`@("`@("`@("`@179A;"`@("`@(%!M7T-O=6YT97(@
M/2`V#0H@("`@($,J("`@($]032!24$<-"B`@("`@0R`@("`@("`@("`@("`@
M("`@("!7:&5N("`@("`@=&EP;U1R9R`]("=/4$TG#0H@("`@($,@("`@("`@
M("`@("`@("`@("`@179A;"`@("`@(%!M7T-O=6YT97(@/2`T#0H@("`@($,J
M("`@(%-13"!/4$T@4E!'#0H@("`@($,@("`@("`@("`@("`@("`@("`@5VAE
M;B`@("`@('1I<&]4<F<@/2`G3U!3)PT*("`@("!#("`@("`@("`@("`@("`@
M("`@($5V86P@("`@("!0;5]#;W5N=&5R(#T@-0T*("`@("!#("`@("`@("`@
M("`@("`@("`@($5N9'-L#0H-"B`@("`@("H@4V5T(&5R<F]R(&-O9&4@<W1R
M=6-T=7)E(&YO="!T;R!U<V4@97AC97!T:6]N<PT*("`@("!#("`@("`@("`@
M("`@("`@("`@(%HM061D("`@("`Q-B`@("`@("`@("`@(%%U<T)0<G8-"@T*
M("`@("`@*B!3970@;&5N9W1H(&]F(&UE<W-A9V4@9&%T80T*("`@("!#("`@
M("`@("`@("`@("`@("`@(%HM061D("`@("`Q,B`@("`@("`@("`@(%!M7TQE
M;F=T:`T*#0H@("`@("`J(%-E;F0@<')O9W)A;2!M97-S86=E#0H@("`@($,@
M("`@("`@("`@("`@("`@("`@0V%L;"`@("`@("=134A33D1032<-"B`@("`@
M0R`@("`@("`@("`@("`@("`@("!087)M("`@("`@("`@("`@("`@("`@("!0
M;5]-<V=)9`T*("`@("!#("`@("`@("`@("`@("`@("`@(%!A<FT@("`@("`@
M("`@("`@("`@("`@(%!M7TUS9T8-"B`@("`@0R`@("`@("`@("`@("`@("`@
M("!087)M("`@("`@("`@("`@("`@("`@("!0;5]-<V=$=&$-"B`@("`@0R`@
M("`@("`@("`@("`@("`@("!087)M("`@("`@("`@("`@("`@("`@("!0;5],
M96YG=&@-"B`@("`@0R`@("`@("`@("`@("`@("`@("!087)M("`@("`@("`@
M("`@("`@("`@("!0;5]-5'EP90T*("`@("!#("`@("`@("`@("`@("`@("`@
M(%!A<FT@("`@("`@("`@("`@("`@("`@(%!M7T-316YT<GD-"B`@("`@0R`@
M("`@("`@("`@("`@("`@("!087)M("`@("`@("`@("`@("`@("`@("!0;5]#
M;W5N=&5R#0H@("`@($,@("`@("`@("`@("`@("`@("`@4&%R;2`@("`@("`@
M("`@("`@("`@("`@4&U?34ME>0T*("`@("!#("`@("`@("`@("`@("`@("`@
M(%!A<FT@("`@("`@("`@("`@("`@("`@(%%U<V5C#0H-"B`@("`@("H@0VAE
M8VL@9F]R(&5R<F]R<PT*("`@("!#("`@("`@("`@("`@("`@("`@($EF("`@
M("`@("!1=7-"079L(#X@,`T*("`@("!#("`@("`@("`@("`@("`@("`@($5X
M<W(@("`@("`J4%-34@T*("`@("!#("`@("`@("`@("`@("`@("`@($5N9$EF
M#0H-"B`@("`@("H@0VQE87(@<F5T=7)N(&1A=&$@<W1R=6-T=7)E#0H@("`@
M($,@("`@("`@("`@("`@("`@("`@0VQE87(@("`@("`@("`@("`@("`@("`@
M4D-633`R,#`-"@T*("`@("`@*B!3970@;&5N9W1H(&]F(&UE<W-A9V4@:6YF
M;W)M871I;VX-"B`@("`@0R`@("`@("`@("`@("`@("`@("!:+4%D9"`@("`@
M,3(P("`@("`@("`@("!0;5],96YG=&@-"@T*("`@("`@*B!296-E:79E('!R
M;V=R86T@;65S<V%G90T*("`@("!#("`@("`@("`@("`@("`@("`@($-A;&P@
M("`@("`G44U(4D-64$TG#0H@("`@($,@("`@("`@("`@("`@("`@("`@4&%R
M;2`@("`@("`@("`@("`@("`@("`@4D-633`R,#`-"B`@("`@0R`@("`@("`@
M("`@("`@("`@("!087)M("`@("`@("`@("`@("`@("`@("!0;5],96YG=&@-
M"B`@("`@0R`@("`@("`@("`@("`@("`@("!087)M("`@("`@("`@("`@("`@
M("`@("!0;5]&;W)M870-"B`@("`@0R`@("`@("`@("`@("`@("`@("!087)M
M("`@("`@("`@("`@("`@("`@("!0;5]#4T5N=')Y#0H@("`@($,@("`@("`@
M("`@("`@("`@("`@4&%R;2`@("`@("`@("`@("`@("`@("`@4&U?0V]U;G1E
M<@T*("`@("!#("`@("`@("`@("`@("`@("`@(%!A<FT@("`@("`@("`@("`@
M("`@("`@(%!M7TU4>7!E#0H@("`@($,@("`@("`@("`@("`@("`@("`@4&%R
M;2`@("`@("`@("`@("`@("`@("`@4&U?34ME>0T*("`@("!#("`@("`@("`@
M("`@("`@("`@(%!A<FT@("`@("`@("`@("`@("`@("`@(%!M7U=A:70-"B`@
M("`@0R`@("`@("`@("`@("`@("`@("!087)M("`@("`@("`@("`@("`@("`@
M("!0;5]!8W1I;VX-"B`@("`@0R`@("`@("`@("`@("`@("`@("!087)M("`@
M("`@("`@("`@("`@("`@("!1=7-E8PT*#0H@("`@("`J($-H96-K(&9O<B!E
M<G)O<G,-"B`@("`@0R`@("`@("`@("`@("`@("`@("!)9B`@("`@("`@475S
M0D%V;"`^(#`-"B`@("`@0R`@("`@("`@("`@("`@("`@("!%>'-R("`@("`@
M*E!34U(-"B`@("`@0R`@("`@("`@("`@("`@("`@("!%;F1)9@T*#0H@("`@
M($,@("`@("`@("`@("`@("`@("`@36]V92`@("`@(%!R;V=R86T@("`@("`@
M0V%L;&5R#0H@("`@($,@("`@("`@("`@("`@("`@("`@4F5T=7)N#0H-"B`@
M("`@("HJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BH-"B`@("`@("H@*E!34U(@+2!%<G)O
M<B!(86YD;&EN9R!3=6)R;W5T:6YE("`@("`@("`@("`@("`@("`@("`@("`@
M("`@("H-"B`@("`@("HJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
M*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BH-"@T*("`@("!#("`@
M("`J4%-34B`@("`@("`@($)E9W-R#0H@("`@($,@("`@("`@("`@("`@("`@
L("`@4F5T=7)N#0H@("`@($,@("`@("`@("`@("`@("`@("`@16YD<W(-"AH=
`
end
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
