>　CLの中からファイルの件数を取得したいのですが、適当なコマンドや方法がありますでしょう
>　か？

「ファイルの本数」なのか「レコード件数」なのか、微妙な言い回しですが


とあるライブラリ（hogelib）に存在するファイルの本数を求める

DCL　　&FCNT　　*DEC　　(10　0)
DSPOBJD　　OBJ(hogelib/*ALL)　　OBJTYPE(*FILE)　　OUTPUT(*OUTFILE)　　OUTFILE(QTEMP/tempf)
RTVMBRD　　FILE(QTEMP/tempf)　　NBRCURRCD(&FCNT)

DSPOBJDコマンドで指定ライブラリ中の、全てのファイル情報をファイルに出力します。
出力したファイルのレコード件数＝ファイル数　となります。

注意
RTVMBRDコマンドはCLP中でしか使えません。
パラメータNBRCURRCDには、数字タイプ１０桁の変数を指定する必要があります。
タイプ*FILEのオブジェクトには、画面ファイルや印刷ファイルも含まれます。
物理ファイルのみ選択したい場合は、OUTFILEを読み込み、*PFのレコードをカウントしてくださ
い。