0
COBOL Código:
WORKING-STORAGE SECTION. 01 STR-BYTE. 05 FILLER PIC X(2) VALUE "00". 05 STR-VALUE PIC X(6). 01 BIT-VALUE PIC 1(8) BIT. 01 BIN-VALUE REDEFINES BIT-VALUE PIC 9(2) COMP. PROCEDURE DIVISION. MOVE "101101" TO STR-VALUE MOVE STR-BYTE TO BIT-VALUE DISPLAY "BIN-VALUE: " BIN-VALUE
Marcadores