Writing in COBOLII on an HP3000 937, I need a routine to generate a 4-digit random number, either on the fly, or to set up as a table. Any suggestions?