CEE3DLY provides a service for Language Environment-conforming applications that suspends the processing of the active enclave for a specified number of seconds. The maximum is 1 hour.

>>-CEE3DLY--(--input_seconds--,--fc--)-------------------------><
 

input_seconds

A full-word binary value in the range of 0 to 3600 that specifies the total number of seconds during which the enclave should be suspended.

fc (output)

A 12-byte feedback code, optional in some languages, that indicates the result of this service. The following symbolic conditions can result from this service:

Code	Severity	Message Number	Message Text
CEE3QQ	1	CEE3930W	The input value input_value in a call to the callable servicecallable_service_name was not within the valid range.
CEE3QS	1	CEE3932W	The system service system_service failed with return codereturn_code and reason code reason_code.

Usage notes

• CICS® consideration—CEE3DLY is available under CICS.
• z/OS UNIX consideration—CEE3DLY is handled by the z/OS UNIX System Services when POSIX is set to ON.
• This service is not intended for timing requests. Delays up to the nearest second might occur in some circumstances.
• In a multi-threaded application, only the calling thread is suspended.

The following is a sample snippet of code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

      *
      * Author: Santix, http://www.italianscool.com
      *  
      * SLEEP using CEE3DLY 
      * 
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SLEEP.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  LILIAN               PIC S9(9) COMP.
       01  XSECONDS             PIC S9(18) COMP.
       01  GREGORN              PIC X(17).
       01  FC.
          03  CEEIGZCT-RC       PIC X.
            88 CEE000           VALUE LOW-VALUE.
          03  FILLER            PIC X(11).
       01  WS-WAIT-FOR          PIC 9(9) COMP.
      *
       PROCEDURE DIVISION.
       MAIN-SECTION.
           CALL 'CEELOCT' USING LILIAN
                                XSECONDS
                                GREGORN
                                FC
 
           DISPLAY 'Local Time is ' GREGORN
           MOVE 3 TO WS-WAIT-FOR
           DISPLAY 'About to wait for ' WS-WAIT-FOR
                   ' seconds'
 
           CALL 'CEE3DLY' USING WS-WAIT-FOR
           CALL 'CEELOCT' USING LILIAN
                                XSECONDS
                                GREGORN
                                FC
 
           DISPLAY 'Local Time is ' GREGORN
           GOBACK.

Execution output:

Local Time is 20141018044826808
About to wait for 3 seconds
Local Time is 20141018044829810

For more information: pic.dhe.ibm.com/infocenter