MVSFORUMS.com

[mf_user]

Hi,

Our client is asking us to put the GDG generation number also in the ouput file. How to get the file number and write it to output file?

[kolusu]

mf_user,

You are creating a new generation in the program and the catalog isn't updated with the information until you close the dataset or the step running this program ends.

You can read the listcat info and manually increment the generation number but you can never guarantee that it would be right generation number.

you can add 2 steps after the program and read the list cat and append the generation name to it.

Kolusu

[Anuj Dhawan]

What are your choices? 1. You want to update the program,PROGP320, "to pick 123"? 2. or you can afford another job to update the latest generation (output)?

If you go with option one, you need to make sure that no other job is working with this GDG at that moment and then what Kolusu has said can be work-around. For option 2, listcat and sort should give you a go...
_________________
Regards,
Anuj

[mf_user]

Guys, sorry for the typo......

The input file is current generation (0) only and NOT (+1). The cobol program should pick the generation number from input file and write it to output along with other fields in record layout.

[superk]

What are you willing to do to accomplish your task? It might be helpful to know the groundrules or restrictions we need to work under.

Call IDCAMS?
Call ISPF Services?
Call REXX?
Call TSO?
Call BPXWDYN?

I created this as a small test of one possibility:

COBOL Code:

[superk]

Also, try the code provided in this thread:

http://groups.google.com/group/comp.lang.cobol/browse_thread/thread/85e935011cdff787/24ecab6b49c46c74%2324ecab6b49c46c74?sa=X&oi=groupsr&start=0&num=3

[mf_user]

Hi,

Thanks a ton. The google link is also very helpful. I am going to try it out.

Would you post the solution if possible to achieve using IDCAMS.

Thanks a lot again.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==

[kolusu]

[mf_user]

Thanks Kolusu.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==

[semigeezer]

If you want to find the info yourself, search the TIOT and JFCB control blocks. This can be done from COBOL and a search will find examples. I don't much care for the listcat solution because of the possibility of getting the wrong name due to concurrent jobs. If you must use the catalog, you can get the name quickly via a locate macro (SVC 26). Svc 99 can also get the name allocated to the ddname as has already been show via bpxwdyn.
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html.

[DaveyC]

Here is the code for a locate routine. Linkage is left as an exercise.

[mf_user]

Hi,

Thanks everyone !
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==