COBOL Código:
  1.        WORKING-STORAGE SECTION.
  2.        01  STR-BYTE.
  3.            05  FILLER                    PIC X(2) VALUE "00".
  4.            05  STR-VALUE                 PIC X(6).
  5.            
  6.        01  BIT-VALUE                     PIC 1(8) BIT.
  7.        01  BIN-VALUE REDEFINES BIT-VALUE PIC 9(2) COMP.
  8.        
  9.        PROCEDURE DIVISION.
  10.        
  11.            MOVE "101101" TO STR-VALUE
  12.            MOVE STR-BYTE TO BIT-VALUE
  13.            
  14.            DISPLAY "BIN-VALUE: " BIN-VALUE