Data commit

Task/Time-a-function/PL-I/time-a-function.pli

@@ -0,0 +1,15 @@
+declare (start_time, finish_time) float (18);
+
+start_time = secs();
+
+do i = 1 to 10000000;
+   /* something to be repeated goes here. */
+end;
+finish_time = secs();
+
+put skip edit ('elapsed time=', finish_time - start_time, ' seconds')
+   (A, F(10,3), A);
+   /* gives the result to thousandths of a second. */
+
+/* Note: using the SECS function takes into account the clock */
+/* going past midnight. */