Anonymous user
Sleep: Difference between revisions
Added 2 COBOL examples.
(Cf. Nautical bell.) |
(Added 2 COBOL examples.) |
||
Line 198:
(sleep 1000)</lang>
=={{header|COBOL}}==
There are two methods for putting the program to sleep, both requiring unofficial extensions.
The first expects the amount of time to be in seconds.
{{works with|ACUCOBOL}}
{{works with|OpenCOBOL}}
<lang cobol> IDENTIFICATION DIVISION.
PROGRAM-ID. Sleep-In-Seconds.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Seconds-To-Sleep USAGE COMP-2.
PROCEDURE DIVISION.
ACCEPT Seconds-To-Sleep
DISPLAY "Sleeping..."
CALL "C$SLEEP" USING BY CONTENT Seconds-To-Sleep
DISPLAY "Awake!"
GOBACK
.</lang>
While the second expects the time to be in nanoseconds.
{{works with|OpenCOBOL}}
<lang cobol> IDENTIFICATION DIVISION.
PROGRAM-ID. Sleep-In-Nanoseconds.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Seconds-To-Sleep USAGE COMP-2.
01 Nanoseconds-To-Sleep USAGE COMP-2.
01 Nanoseconds-Per-Second CONSTANT 1000000000.
PROCEDURE DIVISION.
ACCEPT Seconds-To-Sleep
MULTIPLY Seconds-To-Sleep BY Nanoseconds-Per-Second
GIVING Nanoseconds-To-Sleep
DISPLAY "Sleeping..."
CALL "CBL_OC_NANOSLEEP"
USING BY CONTENT Nanoseconds-To-Sleep
DISPLAY "Awake!"
GOBACK
.</lang>
=={{header|Common Lisp}}==
| |||