EVENTING

File 40
Op-Sys z/OS, z/VSE, BS2000/OSD
Statement FIND or PROCESS, depending on value in FUNCTION field.
Task Allows communication between Natural programs or Natural applications. This DDM enables Natural programs to send data to and receive data from other Natural programs, even if the partner program is located on another system running a different operating system.

In BS2000/OSD, this view is only available in multi-user mode.


Common Fields for all Operating Systems

Dictionary Field Name F/L Mu DE Remarks
ERROR-CODE N3      
ERROR-TEXT A58      
NODE N5   D  
NODE-NAME A16   D  
SYSTEM-MESSAGE-CODE A10      
FUNCTION A8   D Required, Unique.
EVENT-NAME A8   * *
MAX-TIME B4   * *
NUMBER-OF-WAITERS N5   * *
NUMBER-OF-MESSAGES N5   * *
MESSAGE-ARRAY A250 M7 * *

* See Field Descriptions, FUNCTION field: Matrix of statements, fields and functions.

Additional fields Supported for BS2000/OSD

Dictionary Field Name F/L Mu DE Remarks
SYSTEM-CODE A2      

Relevant Error Codes

Code Text z/OS z/VSE BS2000/OSD
600 Unknown function. X X X
745 Error occurred when executing Eventing     X
809 Subsystem not active.     X
886 Event is in use. X X X
887 Event is already defined. X X X
888 Event name must be specified. X X X
890 Event does not exist. X X X
891 Timeout waiting for event. X X X
894 Enable eventing failed.     X
893 Getmain failed. X X  
983 Single user mode not supported by Eventing     X
986 No or not enough space for EVENTING MEMORY POOL     X

Field Descriptions

Which fields are relevant with which statement depends on the FUNCTION specified (see the description of the FUNCTION field, below).

Field Name Format/Length Operating System
EVENT-NAME (A8) z/OS, z/VSE, BS2000/OSD

Name of the event.

Field Name Format/Length Operating System
FUNCTION (A8) z/OS, z/VSE, BS2000/OSD

Specifies the action to be performed. Possible values:

Value Explanation
DEFINE  Define an event
DELETE  Delete an event
LIST  List events
POST  Post event
RECEIVE  Receive messages from event
SEND  Send message to event
WAIT  Wait for post of event (or timeout)
SENDPOST  Both SEND and POST.

Matrix of statements, fields and functions:

Key: R=Required, U=Unique, D=Descriptor

PROCESS Statement Functions
Fields DEFINE DELETE SEND WAIT POST
EVENT-NAME RUD RUD RUD RUD RUD
MAX-TIME       UD  
MESSAGE-ARRAY     RUD    
FIND Statement Functions
Fields RECEIVE LIST
EVENT-NAME RUD D
NUMBER-OF-WAITERS   D
MESSAGE-ARRAY D  
NUMBER-OF-MESSAGES   D
Field Name Format/Length Operating System
MAX-TIME (B4) z/OS, z/VSE, BS2000/OSD

Maximum time (in seconds) you want to wait for a message to arrive. If no message arrives within this time you will get ERROR-CODE 891 (timeout).

Field Name Format/Length Operating System
MESSAGE-ARRAY (A250)   M7 z/OS, z/VSE, BS2000/OSD

Array of maximum 7 messages for SEND/RECEIVE functions.

Field Name Format/Length Operating System
NUMBER-OF-MESSAGES (N5) z/OS, z/VSE, BS2000/OSD

Number of messages waiting to be received.

Field Name Format/Length Operating System
NUMBER-OF-WAITERS (N5) z/OS, z/VSE, BS2000/OSD

Number of tasks waiting to be posted.