Creating zoned decimal with COBOL preferred signs