IBM Mainframe Forum

I was wondering if anyone has a solution for this issue that I want to resolve.How can I get my SYSPUNCH cards into a single file while unloading from DB2 Table?

Here's what I am trying to accomplish. I can create a SYSPUNCH dataset using the template whether it is a GDG based dataset or a simple sequential file. I can dynamically create a file (lets call it FILEA) containing all the SYSPUNCH file names that I generated from doing an UNLOAD. THe whole idea is not to have to hard code tablespace name each and everytime a tablespace is added or dropped. I simply read my SYSTABLESPACE, extract the tablespace I am after, build according to the SYSPUNCH naming convention used during UNLOAD, feed
this FILEA to SYSUT1 such as the following:

//S01OF99 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DSN=FILEA,DISP=OLD
//SYSUT2 DD DSN=SOMENAME,DISP=(,CATLG)

I want IEBGENER to read FILEA and copy the actual SYSPUNCH contoll statements of each name registered
in FILEA to to 1 single file named in SYSUT2. In order words merge all files. The contents of FILEA is
just a list of files to copy into SYSUT2 and the structure will look like this:
FILEA:

DD DISP=SHR,DSN=GO1.FDEV1.OSCR.D1UNL.GO1SCAM1.PUNCH
DD DISP=SHR,DSN=GO1.FDEV1.OSCR.D1UNL.GO1SCJR1.PUNCH
DD DISP=SHR,DSN=GO1.FDEV1.OSCR.D1UNL.GO1SDNF1.PUNCH
DD DISP=SHR,DSN=GO1.FDEV1.OSCR.D1UNL.GO1SGAJ1.PUNCH
DD DISP=SHR,DSN=GO1.FDEV1.OSCR.D1UNL.GO1SGCT1.PUNCH
DD DISP=SHR,DSN=GO1.FDEV1.OSCR.D1UNL.GO1SMSR1.PUNCH
DD DISP=SHR,DSN=GO1.FDEV1.OSCR.D1UNL.GO1SNAK1.PUNCH
DD DISP=SHR,DSN=GO1.FDEV1.OSCR.D1UNL.GO1SOFC1.PUNCH
DD DISP=SHR,DSN=GO1.FDEV1.OSCR.D1UNL.GO1SGO11.PUNCH

When I tried this method, IEBGENER errors-out with this message:

DATA SET UTILITY - GENERATE
DD DISP=SHR,DSN=GO1.FDEV1.OSCR.D1UNL.GO1SCAM1.PUNCH
IEB336I INVALID COMMAND IN COL. 07
DD DISP=SHR,DSN=GO1.FDEV1.OSCR.D1UNL.GO1SCJR1.PUNCH
IEB336I INVALID COMMAND IN COL. 07
DD DISP=SHR,DSN=GO1.FDEV1.OSCR.D1UNL.GO1SDNF1.PUNCH
IEB336I INVALID COMMAND IN COL. 07
DD DISP=SHR,DSN=GO1.FDEV1.OSCR.D1UNL.GO1SGAJ1.PUNCH

What do I need to correct the error and make this work.

Thanks in advance for all suggestions.

IEBGENER does not do what you are trying to do. SYSUT1 must contain the actual data to be copied, not a list of references to those data.

If this is to be a repeated task, I recommend that you create a skeleton for your IEBGENER job, and write a brief Rexx script that uses ISPF file-tailoring services to generate it with the data from FILEA, and then submits the job.

Also try reading the manual for something before trying to use it and before posting.

Akatsukami,
Thank you so very much for your thoughtful and experienced explanation. Recommendations well taken.

NicC, I appreciate your informative response to my inquiry. Perhaps you might want to consider that some of us do read the manuals but somehow are unable to comprehend the finer points of the subject matter at hand and that's why we come to you, Akatsukami, and other of reknown expertise. I hope this forum is not for geniuses, because I'll gladly disqualify myself...

Best regards

IEBGENER is fairly clear on its control cards and jcl requirements with several examples.
And I do acknowledge the fact that reading the manual can be a horrible experience - I get the heebie-jeebies with the DFSort manual once I get past SORT!