On Thu, 23 Oct 2014 16:36:04 +0200, Thomas Berg wrote:
> When looking at this a second time, it seems very promising and more
> customizable than SUBSET + other options.
> One question: you placed the BI-field at the end. If it was very long
> records, would it from a performance view be better to place it in front, at
> > position 1 (or 5 if V records)?
For recfm=v(b) I'd place the sequence number in front:
//*
//STEP1 EXEC PGM=SORT
//*
//SYSOUT DD SYSOUT=*
//SORTIN DD *
001aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb01ccccccccccccccccccccccccccccccdddddddd01
002aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb02ccccccccccccccccccccccccccccccdddddddd02
003aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb03ccccccccccccccccccccccccccccccdddddddd03
004aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb04ccccccccccccccccccccccccccccccdddddddd04
005aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb05ccccccccccccccccccccccccccccccdddddddd05
006aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb06ccccccccccccccccccccccccccccccdddddddd06
007aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb07ccccccccccccccccccccccccccccccdddddddd07
008aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb08ccccccccccccccccccccccccccccccdddddddd08
009aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb09ccccccccccccccccccccccccccccccdddddddd09
010aaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbb10ccccccccccccccccccccccccccccccdddddddd10
/*
//SORTOUT DD DISP=(,PASS),
// DSN=&&VB,
// SPACE=(TRK,(1,1)),
// LRECL=84,RECFM=VB
//SYSIN DD *
OPTION COPY
OUTFIL FTOV
/*
//*
//STEP2 EXEC PGM=SORT
//*
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=(OLD,DELETE),DSN=&&VB
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INREC FIELDS=(1,4,SEQNUM,4,BI,5,80)
OUTREC IFTHEN=(WHEN=(5,4,BI,GE,6,&,5,4,BI,LE,7),
BUILD=(1,4,9,3,39,10)),
IFTHEN=(WHEN=(5,4,BI,EQ,8),
BUILD=(1,4,9,3,39,10,79,10)),
IFTHEN=(WHEN=(5,4,BI,EQ,9),
BUILD=(1,4,39,10,79,10)),
IFTHEN=(WHEN=NONE,
BUILD=(1,4,39,10))
OPTION COPY
/*
Norbert Friemel
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
