Bienvenidos a Iseries Venezuela

Las mejores prácticas, recursos, tips, enlaces, videos y artículos para informáticos relacionados con el Iseries y el As/400 lenguajes de programación RPG, ILE RPG y SQL.

The best practices, resources, tips, links, videoes and articles for computer related to the Iseries and the As/400 languages of programming RPG, ILE RPG and SQL.

lunes, 20 de septiembre de 2010

Mejores Practicas en RPG: Estructura de Datos


   









1.- Uso Del Extname en la declaración de estructuras de datos:

En el ejemplo se utiliza para acumular totales en los campos de un archivo
Sin tener que renombrar campo a campo.

 Antes: (RPG 3)

     E                    SER        35 11 2             
     I***
     IFP002R
     I              FP2C01                          SER,1
     I              FP2C02                          SER,2
     I              FP2C03                          SER,3
     I              FP2C04                          SER,4
     I              FP2C05                          SER,5
     I              FP2C06                          SER,6
     I              FP2C07                          SER,7
     I              FP2C08                          SER,8
     I              FP2C09                          SER,9
------------------------------------------------
Después: (Rpg4, Free)

     dDsFp002F       e ds                  Extname(Fp002F) Prefix(DS_)
     d Servicios                     11p 2 Dim(35)
     d                                     Overlay(DsFp002F:130)  

 //* 130 es la posición de comienzo delcampo FP2C01 que indica el archivo. Se puede ver con dspffd.

2.- No utilices tablas a tiempo de compilación al final del programa.

Antes:

Tablas al final del programa luego de la Hoja C
**
1Lunes
2Martes
3Miercoles


Después.


     dSemana     Ds
     dLunes                                  10   Inz(‘Lunes’)
     dMartes                                 10  Inz(‘Martes’)
     dMiercoles                             10  Inz(‘Miercoles’)
     d Dias_Semana                     10   Dim(3)
     d                                                  Overlay(Semana)  

3.-La Estructura de Datos para Validar una fecha, es un recurso muy útil.
Esa antigua manera de validar si el día del mes es mayor a 31, si el año es bisiesto,
o si el mes está entre 1 y 12 quedó atrás.

     d                 ds
     dFecVal                    1     10
     dAnoVal                   1      4  0 Inz(0)
     dSep1                        5      5    Inz('-')
     dMesVal                   6      7  0 Inz(0)
     dSep2                        8      8    Inz('-')
     dDiaVal                     9     10  0 Inz(0)
     d*

       Diaval   = Dia;  (dia= dia de La fecha a validar)
       Mesval  = Mes;  (Mes de La fecha a validar)
       Anoval = Ano;  (Ano de La fecha a validar)

Test(DE) *ISO Fecval;
  If %error;
     Dsp_error = 'Fecha Invalida';   
   Endif;


Autor: Ing. Liliana Suárez.


Si te pareció interesante el artículo reenvíalo a un amigo, haciendo click en el sobrecito que está al final del artículo. El conocimiento es valioso, compártelo.

No hay comentarios: