■ UNIQUEサンプル
UNIQUEを使うと、指定したフィールドのレコードの種類を表示することができます。…あまり使えないかも。。。(^^;▲もっとも簡単な例
//STEP01 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN1 DD * 0000100001ABCDEFG 0000100001ABCDEFG 0000100002ZZZZZZZ 0000100003ZZZZZZZ 0000100004ZZZZZZZ //TOOLIN DD * UNIQUE FROM(IN1) - ON(1,10,CH) - ←1~10バイトが重複していない件数を表示
実行結果
※出力結果は、TOOLMSGに出力されます。
ICE628I 0 RECORD COUNT: 000000000000005 ICE610I 0 NUMBER OF UNIQUE VALUES FOR (1,10,CH) : 000000000000004