Random Service Pgm

2024-01-28 15:13:17 -05:00
parent 523c327a36
commit 3525615191
4 changed files with 79 additions and 7 deletions
@@ -0,0 +1,7 @@
+**free
+//=== Prototypes for SRV_RANDOM routines =======================
+dcl-pr Rand_Int int(10);
+  p_Low int(10) value;      // lowest value of range
+  p_High int(10) value;     // highest value of range
+end-pr;
+//=== End of SRV_RANDOM prototypes =============================