MVSFORUMS.com

[koolspark]

hi,

I've a GDG generation and I want to access it randomly in my cobol program. Is this possible with out using arrays? Can I use START command on GDG generation? My requirement is as follows.

1. i've a cursor in my cobol+db2 program which is fetching the account numbers.
2. I've a gdg generation file. If the account number fetched from the cursor is present in the gdg generation, then i should not process the account otherwise i should process the account.

Can somebody please let me know how to do this?

Thanks,

[dbzTHEdinosauer]

what kind of file is the gdg?

qsam?

you can only read a qsam file sequentially.

suggest you presort the gdg input in the same order as the cursor, then you can match merge.
_________________
Dick Brenholtz
American living in Varel, Germany

[Cogito-Ergo-Sum]

Load your GDG into a KSDS; maybe, create a key including the G000V00 value and keep everyone happy.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

[papadi]

How many "keys" are in the sequential file?
_________________
All the best,

di

[koolspark]

I've only one key in the file which is the account number.

[kolusu]

koolspark,

1. Pre-sort the GDG on the account number by providing the sortin with GDG base.
2. Open cursor
3. Fetch cursor
4. Read the first record in file
5. Compare it Db2 key against the file-key.
6. If file-key is less than Db2 key , read the file till file-key is equivalent or greater to DB2-key
7. If file-key is greater than DB2 key , go back to step 3 and repeat till the end of cursor.

Kolusu

[Crox]

if you are able to open the files in a dynamic way, you can first read a directory list, finding the right datanames. Then you can choose out of the datanames and open the files using a dynamic allocation.