Kuk
9 de agosto de 2019, 16:24
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
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