VLSHRT always seems to require 2 passes to extract and sort.

Joel · New User Joined: 07 Feb 2006 Posts: 11

Can the following 2 DFSORT steps be combined into 1 for more efficiency and elegance ? OPTION VLSHRT always seems to require 2 passes to extract and sort.

//JOBS EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=TTDX.MINILOG.MDBD0186
//SORTOUT DD DISP=(,PASS),SPACE=(CYL,1100),DSN=&&L

OPTION VLSHRT
SORT FIELDS=COPY
INCLUDE COND=(62,8,CH,EQ,C'$HASP373')

//JOBS EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=(SHR,DELETE),DSN=&&L
//SORTOUT DD DISP=SHR,DSN=TTD.JOBS.MDBD0186

SORT FIELDS=(43,3,CH,A,70,9,CH,A)
OUTREC FIELDS=(1,4,43,3,70,9)
SUM FIELDS=NONE

Frank Yaeger · Posted: Tue Feb 07, 2006 10:35 pm

I believe these control statements would do it: