I have done a small change, like below: USING SMFRCD0,R9 DXSOTHR CLI SMF0RTY,128 BL DXSTYSU WTO 'IEFU83 EXIT INVOKED' ** BAS R8,DXMSG <=== TEMP DXSTYSU DS 0H *
And when SMF 205 is generated, the WTO is issued, while when it is time for 206, nothing is WTOed, but the SMF is generated. Really, really strange. Best Regards Ituriel do Nascimento Neto z/OS System Programmer Em terça-feira, 31 de janeiro de 2023 13:03:09 BRT, Binyamin Dissen <[email protected]> escreveu: Are you checking the return code from WTO? Does the message show data from the SMF record or a boilerplate? The snippet looks fine. Show the code. On Tue, 31 Jan 2023 13:29:16 +0000 Ituriel do Neto <[email protected]> wrote: :>I'm facing a problem with SMF that is completely unusual, and maybe you can enlight me. :>I do have a program that generates SMF records and it is possible to specify the SMF number :>of any choice (bigger than 127). The SMF record is issued using SMFWTM macro. :>I also have an IEFU83 and IEFU84 SMF exits and since SMFWTM is being used, IEFU83 will :>be lunched to intercept the previously generated SMF record. :>Since it is in test, the first thing IEFU83 does is to WTO the SMF type and subtype it is processing, :>for debugging purposes. :>Now comes the strange part. if the SMF number is between 128 and 205 (inclusive), the WTO is :>issued normaly, but if the SMF number is bigger than 205 it seems the exit is not invoked because :>no WTO is issued at all. :>The SMF is generated correctly because I can extract it from SYS1.MANx datasets. :>Here goes a piece of code of IEF83/4 to ilustrate. :> USING SMFRCD0,R9 * MAPS SMF RECORD HEADER :>DXSOTHR CLI SMF0RTY,128 * SMF SYSTEM RECORD (<128)? :> BL DXSTYSU * YES, CHECK TYPE/SUBTYPE/PROD :> BAS R8,DXMSG <=== TEMP * DISPLAY AND RETURN :>DXSTYSU DS 0H :>Are there any kind of restriction because it is completely crazy. -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
