Tables / Arrays ...

[BowlerBob]

Hi

Guessing this kind of thing has been used by many COBOL programmers.


There is a TABLE of 10-digit numbers.
User enters (ACCEPT) how many such numbers they require.

an ARRAY of 5 x 2-digit RANDOM numbers is loaded.

That ARRAY ( 10-digits ) will be added to the TABLE.


Seems easy enough, but DUPLICATES in an ARRAY need to be prevented.

I suspect (hope) there might be an algorithm that will cope
with this in one go ???


Thanks in advance.

cheers

 

[CobolKid]

Write the values to an indexed file that is indexed by the values. Any duplicate value will cause a data exception, the duplicate will not be written to the file. Once all values have been written to the file, use the file to load the table.

Steve

 

[BowlerBob]

Hi

Thanks for the suggestion.

Have written a program that will choose up to 6 line in the Euro-Millions lottery.
Been ruuning it in GnuCOBOL (formerly OpenCOBOL).

LottoEuro_06.cbl

 

[nclouston]

400+ lines? I did it in rexx in 131 although I was using spf/pro to display the results so that would be about 150 lines all in if displaying to console. I will have to do that change as SPF/Pro does not seem to work under Win 10.


Nic