Ya me funciona, he tenido que modificar las dds's de la pantalla y he
tenido que colocar en el formato de
registro ARCHIVO, la funcion CHOICE en lugar de las opciones
anteriores.
Muchas gracias.
-----Mensaje original-----
De: Miquel Lerin
Enviado el: Jueves, 18 de Abril de 2002 12:15 p.m.
Para: [EMAIL PROTECTED]
Asunto: RE: MNUBAR
Mas curioso Jose, me he creado una clp que realiza un SNDRCVF de REG01
y luego un RCVF de ARCHIVO y obtengo
los siguientes valores:
- MNUCHOICE = 1 (Correcto)
- INPUT = -01 (Incorrecto)
- F1 = 2 (Correcto, ya que es la opcion que he
pulsado).
En el RPGLE tengo EXFMT REG01 y seguidamente un READ ARCHIVO y los
valores son los siguientes:
- MNUCHOICE = 1 (Correcto)
- INPUT = -01 (Incorrecto)
- F1 = 0 (Incorrecto)
No entiendo nada.
-----Mensaje original-----
De: Jose Manuel Leiva Capitan [mailto:[EMAIL PROTECTED]]
Enviado el: Jueves, 18 de Abril de 2002 11:55 a.m.
Para: [EMAIL PROTECTED]
Asunto: RE: MNUBAR
Hola,
Creo que despu�s del exfmt del REG01, una vez que ya sabes que opci�n se ha
escogido
segun el campo MNUCHOICE, se ha de hace un READ del registro
correspondiente, en el caso que comentas es un READ ARCHIVO, asi verias la
seleccion que se ha hecho en este registro PULDWN.
Yo tengo hecha una prueba en un CLP y despu�s del SNDRCVF, he de hacer un
RCVF del formato que han elegido.
Saludos
-----Mensaje original-----
De: Miquel Lerin [mailto:[EMAIL PROTECTED]]
Enviado el: jueves, 18 de abril de 2002 11:16
Para: [EMAIL PROTECTED]
Asunto: MNUBAR
Hola foro, �alguien me puede dar un empujoncito?
Tengo las siguientes dds's de pantalla:
A*%%TS SD 20020417 174758 FIO20 REL-V5R1M0
5722-WDS
A*%%EC
A DSPSIZ(24 80 *DS3)
A CF03(03)
A CA10(10)
A R REG01
A*%%TS SD 20020417 174758 FIO20 REL-V5R1M0 5722-WDS
A MNUBARDSP(MENUBAR &MNUCHOIC &INPUT)
A MNUCHOICE 2Y 0H
A INPUT 2S 0H
A 22 2'
A
A '
A DSPATR(UL)
A DSPATR(HI)
A 23 2'F3.-Salir'
A R MENUBAR
A*%%TS SD 20020417 174758 FIO20 REL-V5R1M0 5722-WDS
A MNUBAR
A MNUCNL(CA10 10)
A MNUFLD 2Y 0B 1 2MNUBARCHC(1 ARCHIVO 'ARCHIVO')
A MNUBARCHC(2 EDITAR 'EDIT')
A R ARCHIVO
A*%%TS SD 20020417 174544 FIO20 REL-V5R1M0 5722-WDS
A PULLDOWN(*RSTCSR)
A F1 1D 0B 1 2RANGE(1 3)
A CHECK(ER)
A 1 5'1. OPCION 1'
A 2 5'2. OPCION 2'
A 3 5'3. OPCION 3'
R EDITAR
PULLDOWN
F2 1D 0B 1 2RANGE(1 3)
1 5'1. PRIMERA OP.2 '
2 4'2. SEGUNDA OP.2 '
3 5'3. TERCERA OP.2 '
y un pgm rpgle que realiza un exfmt
del REG01. Me recupera bien el valor de la
opcion pulsada en el registro
MENUBAR, pero no veo la manera de recuperar la
opcion pulsada en el registro
ARCHIVO.
Las variables tienen el siguiente
valor despues del EXFMT:
- MNUCHOICE = 01 ya
que he escogido la opcion 1 ARCHIVO
- INPUT = -01 y creo
que tendria que tener 02 ya que he escogido la
opcion 2
del registro ARCHIVO.
- F1 = 0.
Gracias y 1sal2.
_____________________________________________________
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
_____________________________________________________
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=AVE
_____________________________________________________
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=AVE
_____________________________________________________
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
