Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   Micro Focus COBOL (https://www.cobolforo.es/forumdisplay.php?f=12)
-   -   [Duda] Eejempo: convertir string binario en valor (https://www.cobolforo.es/showthread.php?t=1034)

Kuk 9 de agosto de 2019 16:24
Eejempo: convertir string binario en valor
 
Código COBOL:
  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


La franja horaria es GMT +2. Ahora son las 01:47.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.