guptae
Moderator
Joined: 14 Oct 2005 Posts: 1208 Location: Bangalore,India
|
|
|
|
Hi there,
You can use sort for this.
Code: |
//STEP001 EXEC PGM=SORT
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SORTWK01 DD SPACE=(CYL,(100)),UNIT=DISK
//SYSIN DD *
OPTION COPY
/*
//SORTIN DD DSN=TBH2.DECE001.DATA(+0),DISP=SHR
//SORTOUT DD DSN=TBH2.SORTCHNG.SORTOUT.DATA,
// UNIT=TAPE,SPACE=(TRK,(1,1),RLSE),DISP=(,CATLG,DELETE),
// DCB=(LRECL=145,BLKSIZE=145,RECFM=FB)
//SYSOUT DD SYSOUT=*
//STATOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//STEP002 EXEC PGM=SORT
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SORTWK01 DD SPACE=(CYL,(100)),UNIT=DISK
//SYSIN DD *
OPTION COPY
/*
//SORTIN DD DSN=TBH2.SORTCHNG.SORTOUT.DATA,DISP=SHR
//SORTOUT DD DSN=TBH2.SORTCHN1.SORTOUT.DATA,
// UNIT=DISK,SPACE=(TRK,(1,1),RLSE),DISP=(,CATLG,DELETE),
// DCB=(LRECL=145,BLKSIZE=145,RECFM=FB)
//SYSOUT DD SYSOUT=*
//STATOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//* |
Here STEP001 will copy the latest version to tape dataset & STEP002 will copy tape dataset to disk dataset
Hope it will helpful |
|
TizMe
New User
Joined: 05 Jan 2006 Posts: 72
|
|
|
|
Quote: |
DCB=(LRECL=145,BLKSIZE=145,RECFM=FB) |
As a storage admin, I'd shoot you for coding BLKSIZE=145....
With BLKSIZE=145 you will only get 72 records per track.
By using BLKSIZE=0, you will get 386 records per track.
(assuming 3390).
Similar wastage is experienced on tapes as well
Also CPU utilisation and runtime will be inceased as well. |
|