Re:(Bruce Vining) How to check jobs which enter SUBSYSTEM

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
************************************************
                       
Bruce wrote

The Job Notification Exit Point (described in the Work Management Exit
Programs chapter of the System API Reference) allows you to be notified, 
by subsystem, whenever a job starts, ends, or is placed on a *JOBQ. The 
exit is flexible enough so that you can ask for only "starts" if that is 
your desire.

The notification is by way of a message being sent to a *DTAQ which 
gives ...


______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *