ＩＮＣＬＵＤＥ／ＯＭＩＴの指定方法

■ ＩＮＣＬＵＤＥ／ＯＭＩＴの指定方法
ＩＮＣＬＵＤＥ／ＯＭＩＴ制御ステートメントを使うとデータの抽出をすることができます。
   ・ＩＮＣＬＵＤＥは「特定のレコードだけを出力データ・セットに入れたい場合」
   ・ＯＭＩＴは「特定のレコードだけを含みたくない場合」
です。
比較演算子は下記のとおりです。

EQ 等しい

NE 等しくない

GT より大きい

GE 以上

LT より小さい

LE 以下

BO すべてON　→　EQと同じ '....'指定のは不可

BZ すべてOFF

BM どれかがON

BNM すべてがON　または　すべてがOFF　・・・何の時に使う？？

比較する長さの最大長さは、ソートの制限事項をご覧ください。

INCLUDE COND=/OMIT CONDのステートメント、または、OPTIONステートメントのOUTFILE指定の場合の抽出方法のサンプルです。

指定意味備考

(1,2,CH,EQ,C'@@') １バイト目から２バイトがキャラクターの＠＠と等しい場合

(1,2,PD,GT,3) １バイト目から２バイトがパックの３より大きい場合パックの場合はクォーテーションは不要です。

(4,1,ZD,EQ,1) ４バイト目から１バイトが数字の１と等しい場合ゾーン数字（キャラクター）の場合はクォーテーションは不要です。

(1,2,BI,EQ,X'5C5C') １バイト目から２バイトが16進数のX'5C5C'と等しい場合

(3,1,BI,EQ,B'....11.1') ３バイト目から８ビットがビットがX'08',X'04',X'01'がすべてＯＮ場合この例は、パック数字でマイナス値を抽出する例です。

(20,1,BI,BM,B'11100000') ２０バイト目から１バイトが16進数でX'80',X'40',X'20'のどれかがＯＮ場合 X'80'かX'40'か'X'20'かX'C0'かX'E0'かX'A0'が抽出されます。

※INCLUDEとOMITを同時に指定することはできません。

▲その１ (INCLUDE/OMIT COND指定／リテラル比較)

//SYSIN DD *

SORT FIELDS=…

INCLUDE COND=(1,3,CH,EQ,C'ABC',AND,

4,3,PD,EQ,123) ←パックの時、クォーテーションなし

/*

▲その１の変形 (INCLUDE/OMIT COND指定／データ比較)

//SYSIN DD *

SORT FIELDS=…

INCLUDE COND=(1,3,CH,EQ,

4,3,CH) ←１～３バイトと４～６バイトが等しいレコード

/*

▲その２(OUTFILE指定)

//SYSIN DD *

SORT FIELDS=…

OUTFIL FNAMES=SORTOUT,

INCLUDE=(1,3,CH,EQ,C'ABC')

/*

※この方法ではビットによる抜出しも可能です。

ex)INCLUDE=(1,1,BI,BO,X'80')

↑

１バイト目のビットX'80'がＯＮのもの

どちらも結果は同じですが、ＳＹＳＰＲＩＮＴの内容がちょっと違います。
＜その１＞では、
   INSERT nnn,DELETE nnn
      RECORDS - IN : 0 , OUT : 0
と表示されますが、

＜その２＞では、
   INSERT 0,DELETE 0
      RECORDS - IN : nnn , OUT : nnn
と表示されます。

※その１では「INCLUDE COND=」、その２では、「INCLUDE=」であることに注意！

※INCLUDEの逆は、OMITです！（EXCLUDEじゃないないですよー）

▲その３～ＡＮＤとＯＲを混在させる方法

//SORT1 EXEC SORT

//SORTIN DD *

   FIRST

1  AAAAA

2  DDDDD

3  EEEEE

4  AAAAA

###END

//SORTOUT DD SYSOUT=*

//SYSIN DD *

  OPTION COPY

  INCLUDE COND=((1,1,CH,EQ,C' ',OR,1,80,SS,NE,C'AAA'),AND,

                             1,3,CH,NE,C'###')

/*

※この例は、１バイト目がブランクまたは８０桁以内にＡＡＡを含まなく、

  かつ、１～３バイト目が＃＃＃でないデータを抜き出す例です。

  ＡＮＤとＯＲを混在させるにはこのように明示的にカッコで括ります。



（出力例）
********************************* データの始め ******
   FIRST                                             
2  DDDDD                                             
3  EEEEE                                             
********************************* データの終り ******

BEFORE PAGE

TOP PAGE

EQ	等しい
NE	等しくない
GT	より大きい
GE	以上
LT	より小さい
LE	以下
BO	すべてON　→　EQと同じ '....'指定のは不可
BZ	すべてOFF
BM	どれかがON
BNM	すべてがON　または　すべてがOFF　・・・何の時に使う？？

指定	意味	備考
(1,2,CH,EQ,C'@@')	１バイト目から２バイトがキャラクターの＠＠と等しい場合
(1,2,PD,GT,3)	１バイト目から２バイトがパックの３より大きい場合	パックの場合はクォーテーションは不要です。
(4,1,ZD,EQ,1)	４バイト目から１バイトが数字の１と等しい場合	ゾーン数字（キャラクター）の場合はクォーテーションは不要です。
(1,2,BI,EQ,X'5C5C')	１バイト目から２バイトが16進数のX'5C5C'と等しい場合
(3,1,BI,EQ,B'....11.1')	３バイト目から８ビットがビットがX'08',X'04',X'01'がすべてＯＮ場合	この例は、パック数字でマイナス値を抽出する例です。
(20,1,BI,BM,B'11100000')	２０バイト目から１バイトが16進数でX'80',X'40',X'20'のどれかがＯＮ場合	X'80'かX'40'か'X'20'かX'C0'かX'E0'かX'A0'が抽出されます。

//SYSIN		DD *
	SORT FIELDS=…
	INCLUDE COND=(1,3,CH,EQ,C'ABC',AND,
			4,3,PD,EQ,123)	←パックの時、クォーテーションなし
/*

//SORT1	EXEC	SORT
//SORTIN	DD	*
FIRST
1 AAAAA
2 DDDDD
3 EEEEE
4 AAAAA
###END
//SORTOUT	DD	SYSOUT=*
//SYSIN	DD	*
OPTION COPY
INCLUDE COND=((1,1,CH,EQ,C' ',OR,1,80,SS,NE,C'AAA'),AND,
1,3,CH,NE,C'###')
/*
※この例は、１バイト目がブランクまたは８０桁以内にＡＡＡを含まなく、
かつ、１～３バイト目が＃＃＃でないデータを抜き出す例です。
ＡＮＤとＯＲを混在させるにはこのように明示的にカッコで括ります。