¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
Recursos iSeries AS400. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Últimas noticias del iSeries AS400
Menu por posicion

Categoría : Programación
Autor : Miguel Angel Alvarez Muñiz
Título : Menu por posicion


Descripción del truco:
Con la modas de lenguajes visuales, es comun que la programacion tenga que variar, por lo tanto el hacer un menu que con solo posicionar el cursor ejecute el programa seleccionado, es una forma de enfrentar lo nuevo con lo creativo, espero sea de utilidad para los que no contamos con los lenguajes visuales.

     H*
     H*       SISTEMA  : ( KITTOOLS  ) HERRAMIENTAS DE TRABAJO ............
     H*       PROGRAMA : ( CURSORPF  ) RUTINA P/EJECUTAR EL PROGRAMA DONDE. ES
     H*                                ESTA POSICIONADO EL CURSOR.......... ES
     H*       CREACION : MIGUEL ANGEL ALVAREZ MU¥IZ
     H*       PAIS     : MEXICO.
     H*       LUGAR    : CIUDAD Y PUERTO DE ACAPULCO,GUERRERO
     H*       FECHA    : 18 DE MARZO DE 2005.
     H*
     H*
     FOPCURFM   CF   E             WORKSTN INFDS(INFDS)
     D*
     D*       DESCRIPCION DE PROGRAMAS Y/O CL'S
     D*
     D MIK01           C                   CONST('BIB/PGM1')
     D MIK02           C                   CONST('BIB/PGM2')
     D MIK03           C                   CONST('BIB/PGM3')
     D MIK04           C                   CONST('BIB/PGM4')
     D*
     DINFDS            DS
     DLIN                    370    370
     DCOL                    371    371
     D*
     DINFDS1           DS
     DBLIN                     1      2B 0
     DCLIN                     2      2
     DBCOL                     3      4B 0
     DCCOL                     4      4
     D*
     C                   Z-ADD     *ZERO         BLIN
     C                   Z-ADD     *ZERO         BCOL
     C                   MOVE      LIN           CLIN
     C                   MOVE      COL           CCOL
     C     M01           TAG
     C                   EXFMT     SCR01
     C   KC              SETON                                        LR
     C   KC              GOTO      M99
     C                   Z-ADD     *ZERO         BLIN
     C                   Z-ADD     *ZERO         BCOL
     C                   MOVE      LIN           CLIN
     C                   MOVE      COL           CCOL
     C                   SELECT
     C     BLIN          WHENEQ    12
     C                   CALL      MIK01
     C     BLIN          WHENEQ    14
     C                   CALL      MIK02
     C     BLIN          WHENEQ    16
     C                   CALL      MIK03
     C     BLIN          WHENEQ    18
     C                   CALL      MIK04
     C                   ENDSL
     C                   GOTO      M01
     C     M99           TAG





*
*    pantalla fuente
*
     A*%%TS  SD  20050330  113309  MIGUEL      REL-V4R2M0  5769-PW1
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      INDARA
     A                                      CSRINPONLY
     A          R SCR01
     A*%%TS  SD  20050330  113309  MIGUEL      REL-V4R2M0  5769-PW1
     A                                      CF03
     A                                  1  2'Fecha :'
     A                                  1 10DATE
     A                                      EDTCDE(Y)
     A                                  1 30'Kit de Herramientas de'
     A                                      DSPATR(HI)
     A                                  1 62'Hora :'
     A                                  1 69TIME
     A                                  2  2'Sistema :'
     A                                  2 12SYSNAME
     A                                  2 28'Miguel Angel Alvarez Mu¤iz'
     A                                      DSPATR(HI)
     A                                  2 59'Usuario :'
     A                                  2 69USER
     A                                  5 13'Posiciona el cursor en el programa-
     A                                       que quieres ejecutar.'
     A                                      COLOR(WHT)
     A                                  7 33'y pulsa '
     A                                      COLOR(WHT)
     A                                 12 19'['
     A            FLD001         1A  I 12 21DSPATR(HI)
     A                                      DSPATR(CS)
     A                                 12 23'] Programa 1.'
     A                                 14 19'['
     A            FLD002         1A  I 14 21DSPATR(HI)
     A                                      DSPATR(CS)
     A                                 14 23'] Programa 2.'
     A                                 16 19'['
     A            FLD003         1A  I 16 21DSPATR(HI)
     A                                      DSPATR(CS)
     A                                 16 23'] Programa 3.'
     A                                 18 19'['
     A            FLD004         1A  I 18 21DSPATR(HI)
     A                                      DSPATR(CS)
     A                                 18 23'] Programa 4.'
     A                                 23  4''
     A                                      COLOR(BLU)
     A                                 23  9'Para Salir.'
                          

Ver código fuente
Fecha 05-07-2005

Tienes algún truco que quieras compartir con todos los profesionales de Recursos iSeries i5 AS400?. Envianoslo y si resulta seleccionado te enviaremos un vale de Amazon por valor de 50$

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

Dossiers técnicos iSeries y AS400
- Dossier de seguridad
- Alta disponibilidad.
¿Buscas trabajo ?
Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico.
Nuestros links preferidos
- Tendencias tecnologías de la información
Expertos en materías relacionadas con las tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware. Software gratuito para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Manuales. Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049