common
     $/cbkdbodc/ dbodc(nbomax,3,2)