.TITLE	CDTRIN
;
;  TEST PROGRAM TO CREATE THE DYNAMIC COMMON REGION CDTRAC
;
;   VICKY WHITE
;    FNAL
;
	.MCALL	RDBBK$,CRRG$,DIR$,EXIT$S,CALLFT
RGRDB:	RDBBK$	BLKSIZ,CDTRAC,GEN,<RS.ATT!RS.NDL!RS.RED!RS.WRT>,0
ERR:	.WORD
CRG:	CRRG$	RGRDB
CDTRIN:
	DIR$	#CRG
	BCC	EX
	MOV	$DSW,ERR
	CALLFT	DLOUT,<<'CREATE REGION ERROR >,ERR>
EX:	EXIT$S
	.END	CDTRIN