AS/400 - Menu PullDown

Menu PullDown

Titulo:	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.
Votar [5.92 / 13 votos] - Visitas 13.639

Comentarios: 5 Votos positivos

80%

20%

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' '

Calculo de intereses sobre saldos

Accesar un archivo de transacciones y su maestro de clientes