Acá esta la respuesta FITO, me la paso un amigo !!
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Misc.
05 Pseudo Pic X.
05 Multi-Digit Pic 999999999V9(6).
05 Two-Digit Pic 99999999.
05 Vary Pic 99.
05 hora Pic 99999999.
PROCEDURE DIVISION.
Return-Pseudo.
ACCEPT HORA FROM TIME
Compute Multi-Digit = (Function Random (hora)) * 1
Display Two-Digit " VARY" Vary " -----1--> " Multi-Digit " --------> " hora
Perform Varying Vary from 1 by 1
Until Vary > 50
Compute Multi-Digit = (Function Random) * 1
Move Multi-Digit to Two-Digit
Display Two-Digit " VARY" Vary " --------> " Multi-Digit " --------> " hora
End-Perform