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