MNUBAR

[Miquel Lerin]

                        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