Mi primer programa en ABAP
21 03 2007(desde donde estoy no tengo acentos ni corrector ortografico, so bear me)
ABAP es un lenguaje muy curioso desde el punto de vista en que es una mescla de Asembler, Cobol, PASCAL mas todo lo que nos dijeron en la universidad que no debemos hacer.
Este es mi primer programa en ABAP. Es una calculadora que suma, resta, multiplica y divide.
DELPHI:
-
*&---------------------------------------------------------------------*
-
-
*& Report YTRAINING0401
-
-
*&
-
-
*&---------------------------------------------------------------------*
-
-
*&
-
-
*&
-
-
*&---------------------------------------------------------------------*
-
-
REPORT ytraining0401.
-
-
-
-
PARAMETER a TYPE i.
-
-
PARAMETER b TYPE i.
-
-
PARAMETER c TYPE c.
-
-
DATA r TYPE i.
-
-
CASE c.
-
-
WHEN '+'.
-
-
r = a + b.
-
-
WHEN '-'.
-
-
r = a - b.
-
-
WHEN '/'.
-
-
IF b = 0.
-
-
WRITE 'No es posible dividir por 0, abortando'.
-
-
EXIT.
-
-
ENDIF.
-
-
r = a / b.
-
-
WHEN '*'.
-
-
r = a * b.
-
-
WHEN OTHERS.
-
-
WRITE 'No puede identificarse el operando. Abortando'.
-
-
EXIT.
-
-
ENDCASE.
-
-
WRITE r.
NO ESTA MAL, SIN EMBARGO ES DE MAL PROGRAMADOR USAR PALABRAS RESERVADAS COMO ‘EXIT’, MAS ALLA DE QUIÉN SE INTRODUZCA EN EL LENGUAJE. PARA ESO TENDRÍA QUE HABER AGREAGADO FLAGS Y BUCLES ANIDADOS. QUIÉN PROGRAME POR PRIMERA VEZ EN ABAP, DUDO MUCHO QUE SEA SU PRIMER ACERCAMIENTO A LA PROGRAMACIÓN.
MAS ALLA DE ESTO, ES UNA AYUDA IMPORTANTE.