MFRASHEED
Active User
Joined: 14 Jun 2005 Posts: 186 Location: USA
|
|
|
|
Try this:
Code: |
//STEP1 EXEC PGM=SARBCH
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SAROUT DD DSN=DATASET.FOR.SAROUT,
// DISP=(,CATLG,DELETE),UNIT=SYSDA
// SPACE=(CYL,(90,100),RLSE),
// DCB=(MODEL.DSCB1,BLKSIZE=0)
//SYSIN DD *
/DBASE NAME=TTT.VIEWXXXX
/PRINT ID=JOBNAME GEN=NNNNN SEQ=00001 DDNAME=SAROUT
/*
|
Replace TTT.VIEWXXXX with SAR file view name in your shop.
Replace GEN=NNNNN with Generation you want copied. Generation can be found in SAR view. |
|