Miquel,
Repasando el fichero de pantalla que adjuntas, con el que tengo hecho yo de
prueba, he visto
que yo lo he creado un poco diferente, el formato de registro REG01 y
MENUBAR tuyos, yo los he puesto en un �nico registro :
0003.00 A DSPSIZ(24 80 *DS3)
0004.00 A R MNUBAR1
0005.00 A*%%TS SD 20011114 175855 JMANUEL REL-V4R2M0 5769-PW1
0006.00 A OVERLAY
0007.00 A MNUBAR
0008.00 A MNUBARDSP
0009.00 A MNUCNL(CA12 12)
0010.00 A MNB001 2Y 0B 1 2MNUBARCHC(1 FPULDWN
'Fichero')
0011.00 A MNUBARCHC(2 EPULDWN
'Editar')
0012.00 A R FPULDWN
0013.00 A*%%TS SD 20011113 150008 JMANUEL REL-V4R2M0 5769-PW1
0014.00 A PULLDOWN
0015.00 A FLD001 2Y 0B 1 1SNGCHCFLD
0016.00 A CHOICE(1 'Abrir')
0017.00 A CHOICE(2 'Cerrar')
0018.00 A CHOICE(3 'Salir')
0019.00 A R EPULDWN
Como veras en la palabra clave MNUBARDSP yo no he puesto nada y utilizo la
palabra clave
MNUBARCHC para crear las diferentes opciones de men�.
Cuando en el CLP hago el RCVF, el campo FLD001 tiene la opci�n seleccionada.
Ejemplo del CLP.
0003.00 DCLF FILE(*LIBL/MNUB001)
0004.00 INICIO: SNDRCVF RCDFMT(MNUBAR1)
0005.00 IF COND(&IN12 = '1') THEN(GOTO CMDLBL(FIN))
0006.00 IF COND(&MNB001 = 1) THEN(RCVF
RCDFMT(FPULDWN))
0007.00 IF COND(&MNB001 = 2) THEN(RCVF
RCDFMT(EPULDWN))
0008.00 /* PRIMER GRUPO MENU FICHERO */
0009.00 IF COND(&MNB001 = 1) THEN(DO)
0010.00 IF COND(&FLD001 = 1) THEN(DO)
0011.00 SNDMSG MSG('Has seleccionado la opci�n de ABRIR +
0012.00 del men� Fichero') TOUSR(*REQUESTER)
0013.00 ENDDO
0014.00 IF COND( &FLD001 = 2) THEN(DO)
0015.00 SNDMSG MSG('Has seleccionado la opci�n de CERRAR +
0016.00 del men� Fichero') TOUSR(*REQUESTER)
0017.00 ENDDO
No se si te puede ayudar esta aclaraci�n.
Saludos
-----Mensaje original-----
De: Miquel Lerin [mailto:[EMAIL PROTECTED]]
Enviado el: jueves, 18 de abril de 2002 12:15
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=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=LEAVE
