Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Código de AS/400 - Menu PullDown

Titulo:local

Menu PullDown

Autor:Walter Fölgar (walter_folgar@hotmail.com)
Lenguaje:AS/400
Ejemplo de un menu PullDown, para AS400.
La opcion donde esta el cursor esta iluminada, (Reverse Image) y al pulsar Enter, se ejecuta la opcion asociada.

A*%%TS SD 20020904 155527 WALTER REL-V4R2M0 5769-PW1 A***************************************************************** A*%%EC A DSPSIZ(24 80 *DS3) A ERRSFL A CF03(03 'EXIT') A CF12(12 'EXIT') A CF24(24 'EXIT') A CSRINPONLY A R FMT01 A*%%TS SD 20020904 155527 WALTER REL-V4R2M0 5769-PW1 A TEXT('ACTIVOS FIJOS') A BLINK A OVERLAY A PRINT A 1 4'B1PUSH' A 1 31'Bemisal,S.A. de C.V.' A 3 20'<*> MENU MANTENIMIENTO DE BIENES F- A IJOS **>' A DSPATR(RI) A DSPATR(HI) A 5 13'==================================- A =====================' A DSPATR(HI) A 6 13' ' A DSPATR(RI) A DSPATR(HI) A 6 67' ' A DSPATR(RI) A DSPATR(HI) A 7 13' ' A DSPATR(RI) A DSPATR(HI) A X 2Y 0B 6 16PSHBTNFLD((*NUMCOL 1)) A PSHBTNCHC(1 '>Mntto. Activo fijo') A PSHBTNCHC(2 'Mntto. >LOCALIZACION') A PSHBTNCHC(3 '>TRASLADO D/BIENES') A PSHBTNCHC(4 'MNTTO.MOV.>BIENES') A PSHBTNCHC(5 'MNTTO.CLASES Y TIPOS') A PSHBTNCHC(6 'P.>ANTERIOR' CF12) A PSHBTNCHC(7 '>SPOOL' CF23) A PSHBTNCHC(8 'SALI>R' CF24) A 7 67' ' A DSPATR(RI) A DSPATR(HI) A 8 13' ' A DSPATR(RI) A DSPATR(HI) A 8 67' ' A DSPATR(RI) A DSPATR(HI) A 9 13' ' A DSPATR(RI) A DSPATR(HI) A 9 67' ' A DSPATR(RI) A DSPATR(HI) A 10 13' ' A DSPATR(RI) A DSPATR(HI) A 10 67' ' A DSPATR(RI) A DSPATR(HI) A 11 13' ' A DSPATR(RI) A DSPATR(HI) A 11 67' ' A DSPATR(RI) A DSPATR(HI) A 12 13' ' A DSPATR(RI) A DSPATR(HI) A 12 67' ' A DSPATR(RI) A DSPATR(HI) A 13 13' ' A DSPATR(RI) A DSPATR(HI) A 13 67' ' A DSPATR(RI) A DSPATR(HI) A 14 13' ' A DSPATR(RI) A DSPATR(HI) A 14 67' ' A DSPATR(RI) A DSPATR(HI) A 15 13' ' A DSPATR(RI) A DSPATR(HI) A 15 67' ' A DSPATR(RI) A DSPATR(HI) A 16 13' ' A DSPATR(RI) A DSPATR(HI) A 16 67' ' A DSPATR(RI) A DSPATR(HI) A 17 13' ' A DSPATR(RI) A DSPATR(HI) A 17 67' ' A DSPATR(RI) A DSPATR(HI) A 18 13' ' A DSPATR(RI) A DSPATR(HI) A 18 67' ' A DSPATR(RI) A DSPATR(HI) A 19 13' ' A DSPATR(RI) A DSPATR(HI) A 19 67' ' A DSPATR(RI) A DSPATR(HI) A 20 13'==================================- A =====================' A DSPATR(HI) A R DUMMY A TEXT('PREVENTS PREVIOUS SCREEN F - A BEING CLEARED') A ASSUME A 20 1' '