Data update

Task/Sleep/COBOL/sleep-1.cob

@@ -0,0 +1,15 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. Sleep-In-Seconds.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  Seconds-To-Sleep       USAGE IS FLOAT-LONG.
+
+       PROCEDURE DIVISION.
+           ACCEPT Seconds-To-Sleep
+           DISPLAY "Sleeping..."
+           CONTINUE AFTER Seconds-To-Sleep SECONDS
+           DISPLAY "Awake!"
+           GOBACK.
+
+       END PROGRAM Sleep-In-Seconds.

Task/Sleep/COBOL/sleep-2.cob

@@ -0,0 +1,18 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. Sleep-In-Seconds.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  Seconds-To-Sleep       USAGE IS COMP-2.
+      *>   Note: COMP-2, while supported on most implementations, is
+      *>   non-standard. FLOAT-SHORT is the proper USAGE for Native
+      *>   IEEE 754 Binary64 Floating-point data items.
+
+       PROCEDURE DIVISION.
+           ACCEPT Seconds-To-Sleep
+           DISPLAY "Sleeping..."
+           CALL "C$SLEEP" USING BY CONTENT Seconds-To-Sleep
+           DISPLAY "Awake!"
+           GOBACK.
+
+       END PROGRAM Sleep-In-Seconds.

Task/Sleep/COBOL/sleep-3.cob

@@ -0,0 +1,26 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. Sleep-In-Nanoseconds.
+       OPTIONS.
+           DEFAULT ROUNDED MODE IS NEAREST-AWAY-FROM-ZERO.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  Seconds-To-Sleep       USAGE IS FLOAT-LONG.
+       01  Nanoseconds-To-Sleep   USAGE IS FLOAT-LONG.
+       01  Nanoseconds-Per-Second CONSTANT AS 1000000000.
+
+       PROCEDURE DIVISION.
+           ACCEPT Seconds-To-Sleep
+           COMPUTE Nanoseconds-To-Sleep
+               = Seconds-To-Sleep * Nanoseconds-Per-Second
+           END-COMPUTE
+
+           DISPLAY "Sleeping..."
+           CALL "CBL_OC_NANOSLEEP"
+               USING BY CONTENT Nanoseconds-To-Sleep
+           END-CALL
+
+           DISPLAY "Awake!"
+           GOBACK.
+
+       END PROGRAM Sleep-In-Nanoseconds.