Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > MicroFocus COBOL
MicroFocus COBOL Visual Cobol, NetExpress, ServerExpress, Visual Object COBOL for Windows etc.
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] STRING de varios campos separados por 1 espacio jmeza Fujitsu COBOL 6 24 de enero de 2019 23:38
[Herramienta] Convertir Label a JPG Anthony AcuCobol 2 22 de julio de 2016 23:54
[Sintaxis] Duda sobre STRING e INSPECT Anthony AcuCobol 2 9 de abril de 2015 19:18
[Componente] OCR para convertir la IMG a texto Roger PowerCOBOL (ActiveX, v4 - v11) 8 6 de marzo de 2015 11:24
[Sintaxis] Valor SHIFT+TAB Recato53 PowerCOBOL (ActiveX, v4 - v11) 3 18 de febrero de 2015 17:51
Respuesta
 
Herramientas

  #1
Antiguo 9 de agosto de 2019, 15:24
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
UbicaciónMadrid
Edad34 años
Última Actividad19.08.2019 17:46
PROCEDURE DIVISION
PostsPosts: 1.411
Ha dicho GraciasEnviado: 307
Ha recibido agradecimientosRecibido: 536
Mejores respuestasSoluiones: 86
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Talking 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


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Josber (10 de agosto de 2019)
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 21:38.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.