MVSFORUMS.com

[kris_mf]

Hi,
Could you please help me in solving the following problem.

I have used the following JCL segemnt
//ADRDSSU JOB 00000,'CONCAT PS ',CLASS=Q,MSGCLASS=4,
// NOTIFY=&SYSUID,REGION=0M
//*
//STEP1 EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=A
//OUTDD1 DD DSN=TST.HSI.SAMPLE.TEST,DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=237,BLKSIZE=27966)
//SYSIN DD *
COPY DS(INCLUDE(TST.HSI.RQ32251.AA00*.CMF)) OUTDDNAME(OUTDD1)
/*



My intention is to read all the data sets TST.HSI.RQ32251.AA00*.CMF and place the content in the new data set named OUTDD1.

The job completed successfully but the output file is empty. I am not able to figureout the problem.

[bablack]

I think you are trying to take multiple datasets, concatinate them, and place the concatinated output in a new dataset, right?
ADRDSSU COPY will not do this. It copies individual datasets, if you copy 5 input datasets, you get 5 output datasets. OUTDDNAME is used to point to the disk volume where the output datasets will be placed, but the dataset on that DD statement will not be used. If you list the VTOC of that volume, you will find the datasets that were copied.

Since you want to select the input datasets from the catalog with a mask, I don't know of any easy way to do what you want. If you know all the dataset names, you could do this with IEBGENER, concatinating all of the input datasets on the SYSUT1 dataset and specifying your output dataset on SYSUT2
_________________
Bruce A. Black
Senior Software Developer
Innovation Data Processing

[kris_mf]

Hi,
how can I copy TST.HSI.RQ32251.AA00*.CMF data sets into a single file using IEBGENER..? Is there any utility to do this..? The AA00* data sets has random values.

Kris