Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > Foros adicionales > COBOLForo.es
COBOLForo.es Todo lo relacionado con el Foro. Su funcionamiento, eventos, preguntas y sugerencias.
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Noticia] ¿Quién dice que COBOL ha desaparecido? Josber COBOL - General 10 4 de diciembre de 2019 22:46
[Componente] Imprimir código QR Armando PowerCOBOL (ActiveX, v4 - v11) 12 18 de junio de 2019 22:53
[Sintaxis] Traducir código Visual Fox Pro a PowerCOBOL Gatomalo PowerCOBOL (ActiveX, v4 - v11) 3 2 de noviembre de 2017 08:00
[Sintaxis] Traducir código de VB a Power Xavier PowerCOBOL (ActiveX, v4 - v11) 10 22 de septiembre de 2016 23:03
[Noticia] Código fuente extendido de 72 a 250 columnas Kuk Cocina MicroFocus 0 16 de febrero de 2016 12:54
Respuesta
 
Herramientas

  #1
Antiguo 13 de julio de 2015, 18:49
IDENTIFICATION DIVISION
Roger
Forero
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
Forero desde (Registrado)febrero 2015
Perú
Ubicación Lima
Última Actividad12.08.2020 19:05
PROCEDURE DIVISION
PostsPosts: 253
Ha dicho GraciasEnviado: 26
Ha recibido agradecimientosRecibido: 70
Mejores respuestasSoluiones: 5
ReputaciónReputación: 11
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Question Ha desaparecido código en un Tema

KUK
Que paso con los codigo cobol que se mostraban en este mensaje desaparecieron?? : [Otra duda] Tamaño de pantalla - COBOL Foro
Roger no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 13 de julio de 2015, 22:28
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad35 años
Última Actividad13.08.2020 19:58
PROCEDURE DIVISION
PostsPosts: 1.617
Ha dicho GraciasEnviado: 443
Ha recibido agradecimientosRecibido: 650
Mejores respuestasSoluiones: 91
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
Predeterminado

Roger, donde? No ha desaparecido nada que yo sepa? No será que te estas confundiendo y era otro mensaje al que te refieres?


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
  #3
Antiguo 13 de julio de 2015, 23:02
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
Ubicación Porto
Última Actividad29.01.2018 19:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 216
Mejores respuestasSoluiones: 47
ReputaciónReputación: 14
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado

Kuk

Realmente o código desapareceu. Eu repito:


Tamanho total do ecran:

WORKING-STORAGE SECTION.
01 ScreenWidth PIC S9(9) COMP-5.
01 ScreenHeight PIC S9(9) COMP-5.
01 ScreenScale PIC S9(4) COMP-5.
PROCEDURE DIVISION.
* Specify the scale desired -
* Pixels in this example
MOVE 0 To ScreenScale
INVOKE MainForm "GetScreenSize" USING ScreenWidth ScreenHeight ScreenScale


Tamanho da área útil:

WORKING-STORAGE SECTION.
01 ScreenWidth PIC S9(9) COMP-5.
01 ScreenHeight PIC S9(9) COMP-5.
01 ScreenScale PIC S9(4) COMP-5.
PROCEDURE DIVISION.
* Specify the scale desired -
* Pixels in this example
MOVE 0 To ScreenScale
INVOKE MainForm "GetScreenSize" USING ScreenWidth ScreenHeight ScreenScale


Saludos,
Rui
Rapinto no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 14 de julio de 2015, 02:56
IDENTIFICATION DIVISION
Hrmcobol
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Puerto Madryn
Edad68 años
Última Actividad12.08.2020 21:30
PROCEDURE DIVISION
PostsPosts: 290
Ha dicho GraciasEnviado: 97
Ha recibido agradecimientosRecibido: 106
Mejores respuestasSoluiones: 8
ReputaciónReputación: 16
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado

Hola Kuk, si desaparecieron las lineas de código que había en los mensajes yo escribí algo así

Código COBOL:
  1. 01  V-Width  pic 9(6).
  2. 01  V-Height pic 9(6).
  3.  
  4.      INVOKE POW-SELF "GetScreenSize" USING V-Width V-Height.
  5.      
  6.      IF V-Width <= 800 INVOKE POW-SELF "ShowForm" USING POW-SWSHOWMAXIMIZED.

Saludos
Hrmcobol no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 14 de julio de 2015, 08:51
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad35 años
Última Actividad13.08.2020 19:58
PROCEDURE DIVISION
PostsPosts: 1.617
Ha dicho GraciasEnviado: 443
Ha recibido agradecimientosRecibido: 650
Mejores respuestasSoluiones: 91
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
Predeterminado

Hrmcobol, Rapinto, Roger, ya está arreglado. Modifiqué el tema para el prefijo y hubo error de base de datos (el hosting gratuito a veces falla). Ya está arreglado.


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
  #6
Antiguo 14 de julio de 2015, 11:05
IDENTIFICATION DIVISION
Hrmcobol
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Puerto Madryn
Edad68 años
Última Actividad12.08.2020 21:30
PROCEDURE DIVISION
PostsPosts: 290
Ha dicho GraciasEnviado: 97
Ha recibido agradecimientosRecibido: 106
Mejores respuestasSoluiones: 8
ReputaciónReputación: 16
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado

Gracias Kuk !!
Saludos
Hrmcobol no ha iniciado sesión   Responder Con Cita
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 20:27.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2020, Jelsoft Enterprises Ltd.