NAME	XU BLOCK COUNT
DESCRIPTION	Count the number of data blocks in a global.
CREATOR	USER,ONE
MENU TEXT	Global Block Count
ROUTINE	%ZTBKC
TYPE	run routine
UPPERCASE MENU TEXT	GLOBAL BLOCK COUNT