Yo lo implement� hace mucho tiempo, concretamente con V2R1M0 y desde
entonces ni lo he tocado, supongo que habr� otras maneras pero en V4R4
sigue funcionando como el primer d�a.
La idea es intentar mostrar una pantalla en 132 car�cteres, si el dispositivo
no lo soporta recuperas el error y obras en consecuencia.
Te paso el ejemplo del CL y de la pantalla.
CL
PGM
DCLF FILE(ANDONI/CONTRO1FM) RCDFMT(CONTROL)
SNDRCVF RCDFMT(CONTROL) WAIT(*NO)
MONMSG MSGID(CPF4169) EXEC(DO)
SNDMSG MSG('El Dispositivo no soporta 132 +
columnas.') TOUSR(ANDONI)
ENDDO
ENDPGM
PANTALLA
A*%%TS SD 19991207 155612 ANDONI REL-V2R3M0 5738-PW1
A*0IGC 0DS4 V2R1M0 910710
A*%%EC
A DSPSIZ(27 132 *DS4)
A R CONTROL
A*%%TS SD 19920624 160354 ANDONI REL-V2R1M0 5738-PW1
A ASSUME
A OVERLAY
A PUTRETAIN
A 22 79' '
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
