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=LEAVE
