Cobol Foro - [Problema con el Foro] Ha desaparecido código en un Tema

Cobol Foro (https://www.cobolforo.es/index.php)

- Funcionamiento del Foro (https://www.cobolforo.es/forumdisplay.php?f=22)

- - [Problema con el Foro] Ha desaparecido código en un Tema (https://www.cobolforo.es/showthread.php?t=189)

Roger

13 de julio de 2015 19:49

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
:susto:

Kuk	13 de julio de 2015 23:28

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

Rapinto

14 de julio de 2015 00:02

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

Hrmcobol

14 de julio de 2015 03:56

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

Código COBOL:

01  V-Width  pic 9(6).
01  V-Height pic 9(6).
 
     INVOKE POW-SELF "GetScreenSize" USING V-Width V-Height.
     
     IF V-Width <= 800 INVOKE POW-SELF "ShowForm" USING POW-SWSHOWMAXIMIZED.

Saludos

Kuk	14 de julio de 2015 09:51

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. ;)

Hrmcobol

14 de julio de 2015 12:05

Gracias Kuk !!
Saludos

La franja horaria es GMT +2. Ahora son las 14:38.