karthikr44
Active User
Joined: 25 Aug 2007 Posts: 235 Location: Chennai
|
|
|
|
HI,
The following example will help u.
Code: |
//PSTP0010 EXEC PGM=IEFBR14
//BKPTDATA DD DSN=DEV2.RK.BKPT.DATA,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(1,1))
//* PSTP0020 - SORT,PARM='MAXSORT'
//PSTP0020 EXEC PGM=SORT,PARM='MAXSORT,MAXWKSP=MAX'
//SORTIN DD DSN=EAGL.DOHBXAPP.E1CLAIM1.AUG23,DISP=OLD
// DD DSN=EAGL.DOHBXAPP.E1CLAIM2.AUG23,DISP=OLD
//SORTOUT DD DSN=DEV2.USAF.CAM.PROBLEM.NAME.BORROWER,
// DISP=(NEW,CATLG,DELETE),
// UNIT=CART,VOL=(,,,255),
// SPACE=(CYL,(15,15),RLSE),
// DCB=(RECFM=VB,LRECL=3312)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(400,75))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(400,75))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(400,75))
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(400,75))
//SORTBKPT DD DSN=DEV2.RK.BKPT.DATA,DISP=(OLD,KEEP)
//SORTOU00 DD DSN=DEV2.RK.PERM.OU00,
// DISP=(,KEEP,KEEP),
// UNIT=(CART,,DEFER),
// LABEL=RETPD=5
//SORTOU01 DD DSN=DEV2.RK.PERM.OU01,
// DISP=(,KEEP,KEEP),
// UNIT=(CART,,DEFER),
// LABEL=RETPD=5
//SORTOU02 DD DSN=DEV2.RK.PERM.OU02,
// DISP=(,KEEP,KEEP),
// UNIT=(CART,,DEFER),
// LABEL=RETPD=5
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(88,09,CH,A)
//*
|
Change sortin, sortout and SYSIN. Other than no need to change anything.
Also check whether CART unit is available at ur shop.
Regards
R KARTHIK |
|