■  OCCURサンプル

OCCURを使うと、ブレイクをとってレコードの件数を表示してくれます。

▲その１〜簡単な例

//STEP01	EXEC	PGM=ICETOOL
//TOOLMSG	DD	SYSOUT=*
//DFSMSG	DD	SYSOUT=*
//IN1	DD	DSN=INFILE,DISP=SHR
//OUT1	DD	SYSOUT=*
//TOOLIN	DD	*
	OCCUR  FROM(IN1)  LIST(OUT1)  -
		TITLE  ('### ﾃﾝﾊﾞﾝﾍﾞﾂﾄﾘﾋｷｻｷ  ｹﾝｽｳ  ###')  DATE  TIME  PAGE  BLANK  -
		HEADER('ﾃﾝﾊﾞﾝ')  ON(1,3,PD)  -
		HEADER('ﾄﾘﾋｷｻｷ')  ON(4,5,PD)  -
		HEADER('COUNT')  ON(VALCNT)  ←VALCNTがシステムのカウンターです

     実行結果

### ﾃﾝﾊﾞﾝﾍﾞﾂﾄﾘﾋｷｻｷ ｹﾝｽｳ ### 11/01/09 11:04:47 - 1 - ﾃﾝﾊﾞﾝ ﾄﾘﾋｷｻｷ COUNT ------ ---------- ------- 100 123456 25 101 223345 10 102 445566 100

▲その２〜重複レコードを数える例

//STEP01	EXEC	PGM=ICETOOL
//TOOLMSG	DD	SYSOUT=*
//DFSMSG	DD	SYSOUT=*
//IN1	DD	DSN=INFILE,DISP=SHR
//OUT1	DD	SYSOUT=*
//TOOLIN	DD	*
	OCCUR  FROM(IN1)  LIST(OUT1)  -
		TITLE  ('### ﾃﾝﾊﾞﾝﾍﾞﾂﾄﾘﾋｷｻｷ  ｹﾝｽｳ  ###')  DATE  TIME  PAGE  BLANK  -
		HEADER('ﾃﾝﾊﾞﾝ')  ON(1,3,PD)  -
		HEADER('ﾄﾘﾋｷｻｷ')  ON(4,5,PD)  -
		HEADER('COUNT')  ON(VALCNT)  HIGHER(20)←HIGHERで指定した重複件数以上の場合に印刷対象になります

     実行結果

### ﾃﾝﾊﾞﾝﾍﾞﾂﾄﾘﾋｷｻｷ ｹﾝｽｳ ### 11/01/09 11:04:47 - 1 - ﾃﾝﾊﾞﾝ ﾄﾘﾋｷｻｷ COUNT ------ ---------- ------- 100 123456 25 102 445566 100

BEFORE PAGE

TOP PAGE