ZCLSGT

【機能】

  現在のクラスの使用状態を取出す	


【使用形式】

  CALL ZCLSGT(NCLS,ICNTBL)


【引数説明】

  ［INPUT］
	なし

  ［OUTPUT］
	NCLS        ：モデル内,ビュー上のどちらにも使用されていない
                　    クラスの内の最も若いクラス番号
	               　0；該当クラスがない
  	               −1；エラー
	ICNTBL(255) ：モデル内のそれぞれのクラスに属するアイテムの数


【機能説明】

  ・ICNTBLで出力されるアイテムの数は、作業領域内のもののみである。
  　従って、あるクラスに属するアイテムの数が0になっていても、ビュー上
  　で使用されていることがある。