Como ya sabemos, llamaremos a la transacción SE38 para abrir el editor de programnas.
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhMs4MP9lcv1a-iAsWC_uLGkOAXZ1H8BzWJ7LgbKkJeF8mC3M8Wuj5HCraUJ7ES3JsdXNUJ_eqUl7f-OuMjPxyOADl_epOz8-QTP8l3xar56DyUOWNWC16RZZUulIWLnanlOS-Dx9R_otI/s400/se38.png)
Escribimos el nombre de nuestro programa, en este caso será ZEJ_TIPOS_DATOS:
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhRPFAS502s9BHKF3GTfFWN2DIslSv3Re17GsWTrlY73ONc1EEgfjeMW1Gs6XsgCvamRnTwoeeREQ_ylPNapNOyXMXpaRF9fOr0MN9K6TU3xdy1c3rKM967sBDfhT1kQystiG-GBzNOkGM/s400/tipos+datos.png)
Hacemos clic en Crear. Nos saldrá una ventana donde debemos ingresar atributos del programa.
Por el momento basta con poner:
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEV6kqrjfXoT4R4hgA4htGHI1cMxw9guZSCQ9L09KYCnxpZc9qOmY7RdilKb2UTe5Ok7avEBR_7qax5z_Ou3-hru2h_VLIi2kj6NoZQsB5T4H3eUb7HD30rrsHN3UeConinwb9m3BLHmg/s400/atributostransporte.png)
Titulo: "Ejemplo de programa con tipos de datos"
Tipo: Programa Ejecutable
Clic en Guardar, y nos aparecerá una ventana para indicar la orden de transporte, ahi pondremos $TMP, que como ya habia mencionado antes, $TMP es una orden que nunca se transporá. De lo cual se hablará en otro post.
Despues de dar clic en guardar o pulsar ENTER veremos el editor de programas donde escribiremos el siguiente código:
REPORT ZEJ_TIPOS_DATOS.
"con comillas hacemos comentarios :D
DATA numeroEntero type I. "(I)nteger
DATA tasaInteres type F. "(F)loat
DATA: sexo type C, estadoCivil type C. " (C)har
DATA pasaporte(8) type N. " (N)umber
DATA nombre(30) type C." (C)har
numeroEntero = 50.
tasaInteres = '2.5'.
sexo = 'H'. "Hombre
estadoCivil = 'S'. "Soltero
pasaporte = '45678901'.
nombre = 'Pepito Grillo'.
write: 'numero:', numeroEntero, /. "con '/' hacemos salto de linea
write: 'Tasa de Interés:', tasaInteres, /.
write: 'Sexo:', sexo, /.
write: 'Estado civil:', estadoCivil, /.
write: 'Pasaporte:', pasaporte, /.
write: 'Nombre:', nombre, /.
write 'Eso es todo.'.
Vemos que podemos usar la sentencia "DATA" para declarar variables.
Si vamos a declarar más de una variable usaremos "DATA:"
En la sentencia:
DATA pasaporte(8) type N. " (N)umber
Estamos usando 'pasaporte(8)' para indicar que será un número que contiene 8 dígitos.
Una variable de tipo N, es una variable que solo contiene cifras pero que son almacenadas como texto. No deberá usarse con el fin de realizar operaciones.
En la sentencia:
DATA nombre(30) type C." (C)har
Estamos declarando una cadena que contiene 30 caracteres.
Finalmente imprimimos el contenido de todas la variables con la sentencia Write.
Activamos (Ctrl+F3) y luego ejecutamos el programa con F8.