SLEEP using CEE3DLY

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.

Syntax
Read syntax diagramSkip visual syntax diagram>>-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

 

2 thoughts on “SLEEP using CEE3DLY

  1. Sowndararaj Soundappan says:

    While using the CEE3DLY utility, i am facing the issue ”CEE3501S The module was not found.” Could you please help me to resolve this issue ?

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>