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