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.