RANDOM Function in COBOL - IBM Mainframes