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.
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Componente] Imprimir código QR Armando PowerCOBOL (ActiveX, v4 - v11) 12 18 de junio de 2019 22:53
[Noticia] ¿Quién dice que COBOL ha desaparecido? Josber COBOL - General 9 17 de octubre de 2018 22:48
[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ónLima
Última Actividad04.07.2019 15:58
PROCEDURE DIVISION
PostsPosts: 225
Ha dicho GraciasEnviado: 18
Ha recibido agradecimientosRecibido: 60
Mejores respuestasSoluiones: 4
ReputaciónReputación: 9
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ónMadrid
Edad34 años
Última Actividad17.07.2019 15:25
PROCEDURE DIVISION
PostsPosts: 1.398
Ha dicho GraciasEnviado: 304
Ha recibido agradecimientosRecibido: 528
Mejores respuestasSoluiones: 85
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
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
UbicaciónPorto
Última Actividad29.01.2018 19:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 215
Mejores respuestasSoluiones: 47
Medallas recibidas: 2Medallas: 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! 
ReputaciónReputación: 13
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
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
UbicaciónPuerto Madryn
Edad67 años
Última Actividad28.06.2019 01:51
PROCEDURE DIVISION
PostsPosts: 260
Ha dicho GraciasEnviado: 89
Ha recibido agradecimientosRecibido: 81
Mejores respuestasSoluiones: 8
Medallas recibidas: 1Medallas: Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ReputaciónReputación: 12
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ónMadrid
Edad34 años
Última Actividad17.07.2019 15:25
PROCEDURE DIVISION
PostsPosts: 1.398
Ha dicho GraciasEnviado: 304
Ha recibido agradecimientosRecibido: 528
Mejores respuestasSoluiones: 85
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
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
UbicaciónPuerto Madryn
Edad67 años
Última Actividad28.06.2019 01:51
PROCEDURE DIVISION
PostsPosts: 260
Ha dicho GraciasEnviado: 89
Ha recibido agradecimientosRecibido: 81
Mejores respuestasSoluiones: 8
Medallas recibidas: 1Medallas: Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ReputaciónReputación: 12
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 15:45.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.