Re: =?ISO-8859-1?Q?Actualizaci=F3n_autom=E1tica_hora_siste?= =?ISO-8859-1?Q?ma_en_pantalla?=

[Carlos Bartolom�]

    Te lo decía porque yo tengo un par de programillas que creo que hacen lo que quieres. Por si te sirve te mando un ejemplo de un programa poco útil, pero que te puede valer para probar: un reloj que se actualiza automáticamente cada segundo.

    Saludos cordiales.
    Carlos Bartolomé
    Halcón Foods, s.a.

Jesús Manuel Sánchez escribió:

Hola Carlos:

 

Gracias por tu contestación, pero no veo la relación del parámetro WAITRCD con lo que yo pedía. Este mandato, según la ayuda, especifica el nº de segundos que el programa espera antes de emitir una lectura. Además, también se dice que este parámetro no tiene efecto sobre una operación de entrada dirigida a un único dispositivo.

 

Gracias de todas formas.

 

Un saludo,

 

Jesús M. Sánchez Montaña

Santiago de Compostela

 

     A*%%TS  SD  19970321  164442  CARLOS      REL-V3R1M0  5763-PW1
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      PRINT
     A                                      INVITE
     A                                      MSGALARM
     A                                      CA03(03 'FIN')
     A          R RELOJ
     A*%%TS  SD  19970321  164442  CARLOS      REL-V3R1M0  5763-PW1
     A                                      FRCDTA
     A                                      OVERLAY
     A                                      WINDOW(1 47 7 29 *NOMSGLIN *NORSTCS-
     A                                      R)
     A                                      WDWBORDER((*DSPATR RI) (*CHAR '    -
     A                                          '))
     A                                      USRRSTDSP
     A  02                              2  1'     '
     A  02                                  DSPATR(RI)
     A  02                              2  1'     '
     A  02                                  DSPATR(RI)
     A  01                              2  2'  '
     A  01                                  DSPATR(RI)
     A  10                              2  8'     '
     A  10                                  DSPATR(RI)
     A  03                              2  8'     '
     A  03                                  DSPATR(RI)
     A  05                              2  8'     '
     A  05                                  DSPATR(RI)
     A  06                              2  8'     '
     A  06                                  DSPATR(RI)
     A  07                              2  8' '
     A  07                                  DSPATR(RI)
     A  08                              2  8'     '
     A  08                                  DSPATR(RI)
     A  09                              2  8'     '
     A  09                                  DSPATR(RI)
     A  10                              2  8'     '
     A  10                                  DSPATR(RI)
     A  11                              2  8'     '
     A  11                                  DSPATR(RI)
     A  12                              2  8'     '
     A  12                                  DSPATR(RI)
     A  04                              2  9'  '
     A  04                                  DSPATR(RI)
     A  07                              2 12' '
     A  07                                  DSPATR(RI)
     A  13                              2 18'     '
     A  13                                  DSPATR(RI)
     A  15                              2 18'     '
     A  15                                  DSPATR(RI)
     A  16                              2 18'     '
     A  16                                  DSPATR(RI)
     A  17                              2 18' '
     A  17                                  DSPATR(RI)
     A  18                              2 18'     '
     A  18                                  DSPATR(RI)
     A  14                              2 19'  '
     A  14                                  DSPATR(RI)
     A  17                              2 22' '
     A  17                                  DSPATR(RI)
     A  22                              2 25'     '
     A  22                                  DSPATR(RI)
     A  23                              2 25' '
     A  23                                  DSPATR(RI)
     A  24                              2 25'     '
     A  24                                  DSPATR(RI)
     A  25                              2 25'     '
     A  25                                  DSPATR(RI)
     A  26                              2 25'     '
     A  26                                  DSPATR(RI)
     A  27                              2 25'     '
     A  27                                  DSPATR(RI)
     A  28                              2 25'     '
     A  28                                  DSPATR(RI)
     A  19                              2 25'     '
     A  19                                  DSPATR(RI)
     A  20                              2 26'  '
     A  20                                  DSPATR(RI)
     A  23                              2 29' '
     A  23                                  DSPATR(RI)
     A  01                              3  3' '
     A  01                                  DSPATR(RI)
     A  02                              3  5' '
     A  02                                  DSPATR(RI)
     A  02                              3  5' '
     A  02                                  DSPATR(RI)
     A  03                              3  8' '
     A  03                                  DSPATR(RI)
     A  07                              3  8' '
     A  07                                  DSPATR(RI)
     A  08                              3  8' '
     A  08                                  DSPATR(RI)
     A  09                              3  8' '
     A  09                                  DSPATR(RI)
     A  11                              3  8' '
     A  11                                  DSPATR(RI)
     A  12                              3  8' '
     A  12                                  DSPATR(RI)
     A  04                              3 10' '
     A  04                                  DSPATR(RI)
     A  04                              3 10' '
     A  04                                  DSPATR(RI)
     A  10                              3 12' '
     A  10                                  DSPATR(RI)
     A  03                              3 12' '
     A  03                                  DSPATR(RI)
     A  05                              3 12' '
     A  05                                  DSPATR(RI)
     A  06                              3 12' '
     A  06                                  DSPATR(RI)
     A  07                              3 12' '
     A  07                                  DSPATR(RI)
     A  10                              3 12' '
     A  10                                  DSPATR(RI)
     A  11                              3 12' '
     A  11                                  DSPATR(RI)
     A  12                              3 12' '
     A  12                                  DSPATR(RI)
     A  13                              3 18' '
     A  13                                  DSPATR(RI)
     A  17                              3 18' '
     A  17                                  DSPATR(RI)
     A  18                              3 18' '
     A  18                                  DSPATR(RI)
     A  14                              3 20' '
     A  14                                  DSPATR(RI)
     A  13                              3 22' '
     A  13                                  DSPATR(RI)
     A  15                              3 22' '
     A  15                                  DSPATR(RI)
     A  16                              3 22' '
     A  16                                  DSPATR(RI)
     A  17                              3 22' '
     A  17                                  DSPATR(RI)
     A  23                              3 25' '
     A  23                                  DSPATR(RI)
     A  24                              3 25' '
     A  24                                  DSPATR(RI)
     A  25                              3 25' '
     A  25                                  DSPATR(RI)
     A  27                              3 25' '
     A  27                                  DSPATR(RI)
     A  28                              3 25' '
     A  28                                  DSPATR(RI)
     A  19                              3 25' '
     A  19                                  DSPATR(RI)
     A  20                              3 27' '
     A  20                                  DSPATR(RI)
     A  22                              3 29' '
     A  22                                  DSPATR(RI)
     A  23                              3 29' '
     A  23                                  DSPATR(RI)
     A  26                              3 29' '
     A  26                                  DSPATR(RI)
     A  27                              3 29' '
     A  27                                  DSPATR(RI)
     A  28                              3 29' '
     A  28                                  DSPATR(RI)
     A  19                              3 29' '
     A  19                                  DSPATR(RI)
     A  02                              4  1'     '
     A  02                                  DSPATR(RI)
     A  02                              4  1'     '
     A  02                                  DSPATR(RI)
     A  01                              4  3' '
     A  01                                  DSPATR(RI)
     A  03                              4  8' '
     A  03                                  DSPATR(RI)
     A  05                              4  8'     '
     A  05                                  DSPATR(RI)
     A  07                              4  8'     '
     A  07                                  DSPATR(RI)
     A  08                              4  8'     '
     A  08                                  DSPATR(RI)
     A  09                              4  8'     '
     A  09                                  DSPATR(RI)
     A  11                              4  8'     '
     A  11                                  DSPATR(RI)
     A  12                              4  8'     '
     A  12                                  DSPATR(RI)
     A  04                              4 10' '
     A  04                                  DSPATR(RI)
     A  06                              4 10'   '
     A  06                                  DSPATR(RI)
     A  10                              4 11' '
     A  10                                  DSPATR(RI)
     A  10                              4 12' '
     A  10                                  DSPATR(RI)
     A  03                              4 12' '
     A  03                                  DSPATR(RI)
     A  13                              4 18' '
     A  13                                  DSPATR(RI)
     A  15                              4 18'     '
     A  15                                  DSPATR(RI)
     A  16                              4 18'     '
     A  16                                  DSPATR(RI)
     A  17                              4 18'     '
     A  17                                  DSPATR(RI)
     A  18                              4 18'     '
     A  18                                  DSPATR(RI)
     A  14                              4 20' '
     A  14                                  DSPATR(RI)
     A  13                              4 22' '
     A  13                                  DSPATR(RI)
     A  22                              4 25'     '
     A  22                                  DSPATR(RI)
     A  23                              4 25'     '
     A  23                                  DSPATR(RI)
     A  24                              4 25'     '
     A  24                                  DSPATR(RI)
     A  25                              4 25'     '
     A  25                                  DSPATR(RI)
     A  27                              4 25'     '
     A  27                                  DSPATR(RI)
     A  28                              4 25'     '
     A  28                                  DSPATR(RI)
     A  19                              4 25' '
     A  19                                  DSPATR(RI)
     A  20                              4 27' '
     A  20                                  DSPATR(RI)
     A  26                              4 28' '
     A  26                                  DSPATR(RI)
     A  19                              4 29' '
     A  19                                  DSPATR(RI)
     A  02                              5  1' '
     A  02                                  DSPATR(RI)
     A  02                              5  1' '
     A  02                                  DSPATR(RI)
     A  01                              5  3' '
     A  01                                  DSPATR(RI)
     A  03                              5  8' '
     A  03                                  DSPATR(RI)
     A  05                              5  8' '
     A  05                                  DSPATR(RI)
     A  09                              5  8' '
     A  09                                  DSPATR(RI)
     A  11                              5  8' '
     A  11                                  DSPATR(RI)
     A  04                              5 10' '
     A  04                                  DSPATR(RI)
     A  10                              5 10' '
     A  10                                  DSPATR(RI)
     A  03                              5 12' '
     A  03                                  DSPATR(RI)
     A  06                              5 12' '
     A  06                                  DSPATR(RI)
     A  07                              5 12' '
     A  07                                  DSPATR(RI)
     A  08                              5 12' '
     A  08                                  DSPATR(RI)
     A  09                              5 12' '
     A  09                                  DSPATR(RI)
     A  11                              5 12' '
     A  11                                  DSPATR(RI)
     A  12                              5 12' '
     A  12                                  DSPATR(RI)
     A  13                              5 18' '
     A  13                                  DSPATR(RI)
     A  15                              5 18' '
     A  15                                  DSPATR(RI)
     A  14                              5 20' '
     A  14                                  DSPATR(RI)
     A  13                              5 22' '
     A  13                                  DSPATR(RI)
     A  16                              5 22' '
     A  16                                  DSPATR(RI)
     A  17                              5 22' '
     A  17                                  DSPATR(RI)
     A  18                              5 22' '
     A  18                                  DSPATR(RI)
     A  25                              5 25' '
     A  25                                  DSPATR(RI)
     A  27                              5 25' '
     A  27                                  DSPATR(RI)
     A  19                              5 25' '
     A  19                                  DSPATR(RI)
     A  26                              5 27' '
     A  26                                  DSPATR(RI)
     A  20                              5 27' '
     A  20                                  DSPATR(RI)
     A  22                              5 29' '
     A  22                                  DSPATR(RI)
     A  23                              5 29' '
     A  23                                  DSPATR(RI)
     A  24                              5 29' '
     A  24                                  DSPATR(RI)
     A  25                              5 29' '
     A  25                                  DSPATR(RI)
     A  27                              5 29' '
     A  27                                  DSPATR(RI)
     A  28                              5 29' '
     A  28                                  DSPATR(RI)
     A  19                              5 29' '
     A  19                                  DSPATR(RI)
     A  02                              6  1'     '
     A  02                                  DSPATR(RI)
     A  02                              6  1'     '
     A  02                                  DSPATR(RI)
     A  01                              6  2'   '
     A  01                                  DSPATR(RI)
     A  03                              6  8'     '
     A  03                                  DSPATR(RI)
     A  05                              6  8'     '
     A  05                                  DSPATR(RI)
     A  06                              6  8'     '
     A  06                                  DSPATR(RI)
     A  09                              6  8'     '
     A  09                                  DSPATR(RI)
     A  11                              6  8'     '
     A  11                                  DSPATR(RI)
     A  12                              6  8'     '
     A  12                                  DSPATR(RI)
     A  08                              6  8'     '
     A  08                                  DSPATR(RI)
     A  04                              6  9'   '
     A  04                                  DSPATR(RI)
     A  10                              6 10' '
     A  10                                  DSPATR(RI)
     A  07                              6 12' '
     A  07                                  DSPATR(RI)
     A  13                              6 18'     '
     A  13                                  DSPATR(RI)
     A  15                              6 18'     '
     A  15                                  DSPATR(RI)
     A  16                              6 18'     '
     A  16                                  DSPATR(RI)
     A  18                              6 18'     '
     A  18                                  DSPATR(RI)
     A  14                              6 19'   '
     A  14                                  DSPATR(RI)
     A  17                              6 22' '
     A  17                                  DSPATR(RI)
     A  22                              6 25'     '
     A  22                                  DSPATR(RI)
     A  24                              6 25'     '
     A  24                                  DSPATR(RI)
     A  25                              6 25'     '
     A  25                                  DSPATR(RI)
     A  27                              6 25'     '
     A  27                                  DSPATR(RI)
     A  28                              6 25'     '
     A  28                                  DSPATR(RI)
     A  19                              6 25'     '
     A  19                                  DSPATR(RI)
     A  20                              6 26'   '
     A  20                                  DSPATR(RI)
     A  26                              6 27' '
     A  26                                  DSPATR(RI)
     A  23                              6 29' '
     A  23                                  DSPATR(RI)
     A  21                              2 25'     '
     A  21                                  DSPATR(RI)
     A  21                              3 29' '
     A  21                                  DSPATR(RI)
     A  21                              4 25'     '
     A  21                                  DSPATR(RI)
     A  21                              5 25' '
     A  21                                  DSPATR(RI)
     A  21                              6 25'     '
     A  21                                  DSPATR(RI)
     A            SEG1           1S 0O  3 15DSPATR(RI)
     A                                      DSPATR(HI)
     A                                      DSPATR(BL)
     A            SEG2           1S 0O  5 15DSPATR(RI)
     A                                      DSPATR(HI)
     A                                      DSPATR(BL)
     A                                  6 15'|'
     A                                      DSPATR(HI)
     A                                  7 14'Seg'
     A                                      DSPATR(HI)
     A                                  1 14'Seg'
     A                                      DSPATR(HI)
     A                                  2 15'|'
     A                                      DSPATR(HI)
     A          R INI
     A                                      OVERLAY
     A                                      PUTOVR
     A                                      KEEP
     A                                      ASSUME
     A                                  2 34'     '
     A                                      OVRATR

     H DEBUG DECEDIT('0,') DATEDIT(*DMY.)
     
F**********************************************************************************************
     F*  UTILIDADES Y HERRAMIENTAS. RELOJ.                                             
            *
     
F**********************************************************************************************
     FHRELOJP   CF   E             WORKSTN MAXDEV(*FILE)
     D                 DS
     D  HORA                   1      6  0
     D  H1                     1      1  0
     D  H2                     2      2  0
     D  M1                     3      3  0
     D  M2                     4      4  0
     D  SEG1                   5      5  0
     D  SEG2                   6      6  0
     C                   DO        *HIVAL
     C                   EXSR      VH
     C                   WRITE     RELOJ
     C                   READ      HRELOJP                              9595
     C  N95              LEAVE
     C                   ENDDO
     C*
     C                   EVAL      *INLR=*ON
0101 
C**********************************************************************************************
0102 C*   VER LA HORA.                                                                 
            *
0101 
C**********************************************************************************************
0104 C     VH            BEGSR
0105 C*
     C                   TIME                    HORA
     C*
     C                   MOVEA     *OFF          *IN
     C*
     C                   SELECT
     C                   WHEN      H1=1
     C                   EVAL      *IN01=*ON
     C                   WHEN      H1=2
     C                   EVAL      *IN02=*ON
     C                   ENDSL
     C*
     C                   SELECT
     C                   WHEN      H2=0
     C                   EVAL      *IN03=*ON
     C                   WHEN      H2=1
     C                   EVAL      *IN04=*ON
     C                   WHEN      H2=2
     C                   EVAL      *IN05=*ON
     C                   WHEN      H2=3
     C                   EVAL      *IN06=*ON
     C                   WHEN      H2=4
     C                   EVAL      *IN07=*ON
     C                   WHEN      H2=5
     C                   EVAL      *IN08=*ON
     C                   WHEN      H2=6
     C                   EVAL      *IN09=*ON
     C                   WHEN      H2=7
     C                   EVAL      *IN10=*ON
     C                   WHEN      H2=8
     C                   EVAL      *IN11=*ON
     C                   WHEN      H2=9
     C                   EVAL      *IN12=*ON
     C                   ENDSL
     C*
     C                   SELECT
     C                   WHEN      M1=0
     C                   EVAL      *IN13=*ON
     C                   WHEN      M1=1
     C                   EVAL      *IN14=*ON
     C                   WHEN      M1=2
     C                   EVAL      *IN15=*ON
     C                   WHEN      M1=3
     C                   EVAL      *IN16=*ON
     C                   WHEN      M1=4
     C                   EVAL      *IN17=*ON
     C                   WHEN      M1=5
     C                   EVAL      *IN18=*ON
     C                   ENDSL
     C*
     C                   SELECT
     C                   WHEN      M2=0
     C                   EVAL      *IN19=*ON
     C                   WHEN      M2=1
     C                   EVAL      *IN20=*ON
     C                   WHEN      M2=2
     C                   EVAL      *IN21=*ON
     C                   WHEN      M2=3
     C                   EVAL      *IN22=*ON
     C                   WHEN      M2=4
     C                   EVAL      *IN23=*ON
     C                   WHEN      M2=5
     C                   EVAL      *IN24=*ON
     C                   WHEN      M2=6
     C                   EVAL      *IN25=*ON
     C                   WHEN      M2=7
     C                   EVAL      *IN26=*ON
     C                   WHEN      M2=8
     C                   EVAL      *IN27=*ON
     C                   WHEN      M2=9
     C                   EVAL      *IN28=*ON
     C                   ENDSL
0121 C*
0122 C                   ENDSR
0101 
C**********************************************************************************************