■  件数指定でデータを抜出す方法

▲その１〜基本パターン

//SORT1		EXEC	SORT
//SORTIN		DD	DSN=INFILE,DISP=SHR
//SORTOUT		DD	DSN=OUTFILE,DISP=(,KEEP),…
//SYSIN		DD	*
	OPTION COPY
	OUTFIL FNAMES=SORTOUT,
	STARTREC=2,ENDREC=4
/*
※このサンプルは、ＩＮＰＵＴの２〜４件のみを抽出します。
※STARTRECを指定しなければ１件目から、ENDRECを指定しなければ最後のレコードまでとなります。

---

▲その２〜応用パターン

//SORT1		EXEC	SORT
//SORTIN		DD	DSN=INFILE,DISP=SHR
//SORTOT1		DD	DSN=&&OUT1,DISP=(,PASS),…
//SORTOT2		DD	DSN=&&OUT2,DISP=(,PASS),…
//SORTOT3		DD	DSN=&&OUT3,DISP=(,PASS),…
//SYSIN		DD	*
	OPTION COPY
	OUTFIL FNAMES=SORTOT1,STARTREC=1,ENDREC=1
	OUTFIL FNAMES=SORTOT2,STARTREC=100,ENDREC=101
	OUTFIL FNAMES=SORTOT3,STARTREC=200,ENDREC=201
/*
//SORT2		EXEC	SORT
//SORTIN		DD	DSN=&&OUT1,DISP=(OLD,DELETE),…
		DD	DSN=&&OUT2,DISP=(OLD,DELETE),…
		DD	DSN=&&OUT3,DISP=(OLD,DELETE),…
//SORTOUT		DD	DSN=OUTFILE,DISP=(,KEEP),…
//SYSIN		DD	*
	OPTION COPY
※このサンプルは、ＩＮＰＵＴの１件目と100件目・１０１件目と２００件目・２０１件目を抽出します。

BEFORE PAGE

TOP PAGE