*DECK DBVERSION 
USETEXT DBTEXT
PROC VERSION; 
*CALL DEBUGVARS 
START("VERSION")
ITEM VN C(10) = 
"DT C5 V01";
CV$($SET$,"VERSION",VN) 
FINIS("VERSION")
TERM
