Kevin
Active User
Joined: 25 Aug 2005 Posts: 234
|
|
|
|
A standard DFSORT job should work:
Code: |
//STEPXXXX EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=MY.VB.VSAM
//SORTOUT DD DSN=MY.FB.QSAM,DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,10),RLSE)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
RECORD TYPE=V
OUTFIL VTOF,OUTREC=(1:5,required-length-of-records)
/*
//*
|
|
|