26 lines
788 B
COBOL
26 lines
788 B
COBOL
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.
|