OpenCOBOL_UnPackValue drop last 2byte in GL_DATE type