RE: Pantallas de 132 columnas

[Javier Mora]

Gracias Manuel y Alex por vuestro interés.

Al final he optado por utilizar la API QsnQryModSup y funciona muy bien.

Saludos,

Javier Mora

De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Alex Martínez
Enviado el: lunes, 25 de septiembre de 2017 8:35
Para: forum.help400
Asunto: Re: Pantallas de 132 columnas

Hola

Tienes la información del tamaño de registro de pantalla en la infds (mira el 
final de este doc)

http://www-01.ibm.com/support/docview.wss?uid=nas8N1016277

El 22 de septiembre de 2017, 18:01, Javier Mora 
<jm...@musgrave.es<mailto:jm...@musgrave.es>> escribió:
Hola a tod@s,

necesito hacer un programa que utilice pantallas de 80 y 132 columnas en 
función de unos determinados criterios. Cómo hace más de 20 años que no utilizo 
DSPSIZ y DSPMOD he realizado un pequeño programa para ver cómo funcionan. Todo 
parece ir bien, salvo en una cosa.

Como las sesiones 5250 no están todas configuradas a 132 columnas necesito 
informar al usuario que use sesión “solo de 80 columnas” que no puede 
visualizarse una determinada pantalla. El sistema cuando intenta visualizar un 
registro en modalidad 132 y no puede, simplemente la muestra en 80 columnas, 
perdiéndose el resto de campos que queden fuera de este espacio.

¿Cómo puedo saber si la pantalla se va a mostrar en 132 o en 80?

Un saludo y gracias por vuestros comentarios.

Javier Mora


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Pantallas de 132 columnas

[Manuel Antonio Ramirez Raygada]

Javier:

Puedes usar en la DDS de la pantalla la siguiente instruccion
A  26  DSPMOD(*DS4)

A  *DS3SFLSIZ(0011)
A  *DS4SFLSIZ(0011)
A  *DS3SFLPAG(0011)
A  *DS4SFLPAG(0011)



Para tu programa RPGLE las siguientes instrucciones

F infds(datos)

D** Informacion de archivo. **
Ddatosds
D size  *size

C *inzsrbegsr
C**
C   eval  *in45 = '1'
c devicepost  PROG800D  datos
c   ifsize = 3564
c   eval  *in45 = '0'
c   endif

el resto es parte de tu logica.


*Manuel A. Ramirez Raygada*
*Analista de Sistemas - AS400*

El 22 de septiembre de 2017, 11:01, Javier Mora 
escribió:

> Hola a tod@s,
>
>
>
> necesito hacer un programa que utilice pantallas de 80 y 132 columnas en
> función de unos determinados criterios. Cómo hace más de 20 años que no
> utilizo DSPSIZ y DSPMOD he realizado un pequeño programa para ver cómo
> funcionan. Todo parece ir bien, salvo en una cosa.
>
>
>
> Como las sesiones 5250 no están todas configuradas a 132 columnas necesito
> informar al usuario que use sesión “solo de 80 columnas” que no puede
> visualizarse una determinada pantalla. El sistema cuando intenta visualizar
> un registro en modalidad 132 y no puede, simplemente la muestra en 80
> columnas, perdiéndose el resto de campos que queden fuera de este espacio.
>
>
>
> ¿Cómo puedo saber si la pantalla se va a mostrar en 132 o en 80?
>
>
>
> Un saludo y gracias por vuestros comentarios.
>
>
>
> Javier Mora
>
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
>

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.