■  ソートを使ってデータを振り分ける方法


//SORT1EXECSORT
//SORTINDD * 
AAAAA111111111111111111111111111111111111111
AAAAA222222222222222222222222222222222222222
ABCDEFG1111111111111111111111111111111111111
BBBBB333333333333333333333333333333333333333
BBBBB444444444444444444444444444444444444444
XYZ01234567890
//SORT1DDDSN=OUT1,DISP=(,KEEP),…
//SORT2DDDSN=OUT2,DISP=(,KEEP),…
//OTHERDDDSN=OTHER,DISP=(,KEEP),…
//SYSINDD * 
 OPTION COPY
 OUTFIL FNAMES=SORT1,INCLUDE=(1,5,CH,EQ,C'AAAAAA')
 OUTFIL FNAMES=SORT2,INCLUDE=(1,5,CH,EQ,C'BBBBBB')
 OUTFIL FNAMES=OTHER,SAVE
/*   
このサンプルは、INPUTの1〜5バイト目が
    AAAAAA ではじまるデータは、SORT1
    BBBBBB ではじまるデータは、SORT2
    それ以外のデータは、OTHER
へ振り分けられます。
SAVEパラメータを指定すると、他のOUTFILパラメータに
振り分けられらなかったレコードのみが出力されます。
指定しなければ全件COPYされます。


BEFORE PAGE

TOP PAGE