OOPS, forgot a parameter. The NODATAINFO is needed or you will get a
listing of all the data set information on the volumes as well.
//STEP002 EXEC PGM=IDCAMS,
// REGION=0M
//*
//SYSPRINT DD SYSOUT=*
//DCOUT DD DSN=&SYSUID..DCOUT,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(200,100),RLSE),
// RECFM=VB,LRECL=932,
// DSORG=PS
//SYSIN DD *
DCOLLECT -
OUTFILE(DCOUT) -
NODATAINFO -
VOLUMES( -
* -
)
/*
On Thu, May 28, 2015 at 12:15 PM, John McKown <[email protected]>
wrote:
> On Thu, May 28, 2015 at 11:59 AM, van der Grijn, Bart (B) <
> [email protected]> wrote:
>
>> ISMF in batch is another option.
>> Bart
>>
>>
> <slap object="head"/>
> Perhaps the easiest is IDCAMS DCOLLECT. Something like:
>
> //STEP002 EXEC PGM=IDCAMS,
> // REGION=0M
> //*
> //SYSPRINT DD SYSOUT=*
> //DCOUT DD DSN=&SYSUID..DCOUT,
> // DISP=(NEW,CATLG,DELETE),
> // SPACE=(TRK,(200,100),RLSE),
> // RECFM=VB,LRECL=932,
> // DSORG=PS
> //SYSIN DD *
> DCOLLECT -
> OUTFILE(DCOUT) -
> VOLUMES( -
> * -
> )
> /*
>
>
> --
> My sister opened a computer store in Hawaii. She sells C shells down by
> the seashore.
>
> If someone tell you that nothing is impossible:
> Ask him to dribble a football.
>
> He's about as useful as a wax frying pan.
>
> 10 to the 12th power microphones = 1 Megaphone
>
> Maranatha! <><
> John McKown
>
--
My sister opened a computer store in Hawaii. She sells C shells down by the
seashore.
If someone tell you that nothing is impossible:
Ask him to dribble a football.
He's about as useful as a wax frying pan.
10 to the 12th power microphones = 1 Megaphone
Maranatha! <><
John McKown
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
