We already have a boolean category and class. The necessary changes for the first implementation of boolean picture PIC 1 is:
#define PIC_BOOLEAN 0x16cb_build_picture() check '1', set PIC_BOOLEAN, add testscb_numeric_boolean and cb_national_literals to include the picture for them_("hexadecimal-boolean literals (b'A')") to _("hexadecimal-boolean literals (bx'A')")
Additional information (applies to MF only): when PIC 1 is found the BINLIT directive is automatically set to "BOOLEAN". Equivalent in GnuCOBOL: set
numeric-booleanto 0)