How to check jobs which enter SUBSYSTEM

[bvining@xxxxxxxxxxxx]

Using the same registration information and call to QRCVDTAQ I am
receiving a *DTAQ message.  Did you remember to restart the subsystem
after registering the exit program?  As indicated in the description
of the exit point, the information is only retrieved by the subsystem
when the subsystem starts.

Not directly related, but are you sure you want &SNDRLEN of 10?  It's a
valid value but really doesn't tell you much given the definition of
that structure.

Bruce Vining

>
>Hi
>
>I created a data queue named 'NOTIFY' as described in the Job
>Notification Exit Point section. Then I registered (command WRKREGINF)
>the data queue using JN exit point.
>
>But I am receiving empty data from the data queue.
>
>Here is the brief description of my approach -
>
>Data queue registration info -
>
>Exit point  . . . . . . . . . . . . . . . :   QIBM_QWT_JOBNOTIFY
>Exit point format . . . . . . . . . . . . :   NTFY0100
>
>Exit program number . . . . . . . . . . . :   1
>Exit program  . . . . . . . . . . . . . . :   NOTIFY
>  Library . . . . . . . . . . . . . . . . :     TLIBSKH
>Text description  . . . . . . . . . . . . :   *BLANK
>
>Exit program data CCSID . . . . . . . . . :   37
>Exit program data length  . . . . . . . . :   24
>Exit program data . . . . . . . . . . . . :
>0001QINTER    QSYS
>
>Just the above line is the program data.
>
>CL Program - I have given 20 sec wait time to receive the data. In the
>mean time, I am performing few interactive jobs in another session for
>testing.
>
>PGM
>DCLF DSP01
>DCL &ENTLEN  *DEC (5 0) VALUE(74)
>DCL &ENTRY   *CHAR 74
>DCL &KEYLEN  *DEC (3 0) VALUE(4)
>DCL &KEY     *CHAR 4 VALUE('0001')
>DCL &WAIT    *DEC (5 0) VALUE(20)
>DCL &ORDER   *CHAR 2 VALUE('EQ')
>DCL &SNDRLEN *DEC (3 0) VALUE(10)
>DCL &SNDR    *CHAR 10
>/****************************************/
>CALL PGM(QRCVDTAQ) PARM('NOTIFY' 'TLIBSKH' &ENTLEN &ENTRY &WAIT +
>&ORDER &KEYLEN &KEY &SNDRLEN &SNDR)
>CHGVAR &DSPENT &ENTRY
>SNDRCVF RCDFMT(JOBNFY)
>ENDPGM
>--------
>I found &ENTRY empty
>What could be the problem?
>
>Thank you in advance
>

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *