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 <Intro>'
     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'<F3>'
     A                                      COLOR(BLU)
     A                                 23  9'Para Salir.'