Hola Jose Manuel, he probado el read despues del exfmt y me sigue dando los
mismos valores.
Se te ocurre algo?
-----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=LEAVE
