¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas
Documentos
Recuperar el día de la semana en RPG
En este ejemplo veremos como recuperar el día de la semana de una fecha

La variable DNJAHR representa el año en formato AAAA. La variable DNMM representa el mes MM y la variable DNTT representa el dia DD.
El programa devuelve @WT (1=lunes, 7=domingo)

     


     C                     MOVE *BLANK    @WOTAG 40
     C                     MOVE *ZERO     @WT    150
     C*
     C           DNMM      IFGT 2                                         
     C                     SUB  2         DNMM                            
     C                     ELSE                            DNMM>2        
     C                     ADD  10        DNMM                            
     C                     SUB  1         DNJAHR                          
     C                     ENDIF                           DNMM>2         
     C*
     C           DNJAHR    DIV  100       @C     150
     C                     MVR            @J     150
     C*
     C           DNMM      MULT 13        @WRK   150
     C                     SUB  1         @WRK
     C                     DIV  5         @WRK
     C                     ADD  @WRK      @WT
     C*
     C           @J        DIV  4         @WRK
     C                     ADD  @WRK      @WT
     C*
     C           @C        DIV  4         @WRK
     C                     ADD  @WRK      @WT
     C*
     C                     ADD  @J        @WT
     C*
     C                     ADD  DNTT      @WT
     C*
     C           @C        MULT 2         @WRK
     C                     SUB  @WRK      @WT
     C*
     C           @WT       DIV  7         @WRK
     C                     MVR            @WT
     C*
     C           @WT       IFLT 0                                         
     C                     ADD  7         @WT                             
     C                     ENDIF                           @WT<0          
     C*
               

Puedes ver el código aquí

Ejemplo enviado por Rainer

18-01-2003


Comentarios de usuarios

Nombre:
Mail:
Comentario:
 
Subir a la parte superior de la web

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en 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 y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- 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