The following job treats input KSDS file as varibale length VSAM file. Note that RECFM parameter in SORTOUT file does this trick. You need to include RDW in the control card.
Properties of the KSDS file is given below.
Average record size: 322
Maximum record size: 32752
This is how SORT determines the DCB of both SORTIN and SORTOUT files
INPUT LRECL = 32756, BLKSIZE = 8192, TYPE = V
OUTPUT LRECL = 32756, BLKSIZE = 32760, TYPE = VB
//DELDDIO EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=my vsam file..
//SORTOUT DD DSN=......,RECFM=VB,
// DISP=(,CATLG,DELETE),SPACE=(CYL,(5,5),RLSE)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INCLUDE COND=(5,8,CH,EQ,X'032F09414600065F')
//*
The following job treats input KSDS file as fixed length VSAM file. Here you should not include RDW in the control card.
This is how SORT determines the DCB of both SORTIN and SORTOUT files
INPUT LRECL = 32752, BLKSIZE = 8192, TYPE = F
OUTPUT LRECL = 32752, BLKSIZE = 32752, TYPE = FB
//DELDDIO EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=my vsam file..
//SORTOUT DD DSN=......,
// DISP=(,CATLG,DELETE),SPACE=(CYL,(5,5),RLSE)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INCLUDE COND=(1,8,CH,EQ,X'032F09414600065F')
//*
No comments:
Post a Comment
Note: Only a member of this blog may post a comment.