✒️ABAP Las subrutinas
ABAP Las subrutinas
Subrutinas
Son secciones de codigo que pueden ser utilizadas más de una vez
Modularizar
Se llama así a la acción de pasar de código de un programa a subrutinas, para mejorar la lectura y mantenimiento del mismo. Lo ideal es que la subrutina no tenga más de 50 lineas.
Las subrutinas se declaran con PERFORM, así:
PERFORM selecciono_datos.
Para crear la subrutina que acabamos de nombrar, hacemos doble click sobre ella. El sistema nos preguntará donde crearla. si en un include de datos o en el mismo programa de control.
Si la creamos en el sistema de control, el sistema generará el siguiente bloque de código en nuestro programa:
form selecciono_datos.
endform.
Nota: el nombre de la subrutina no debe exceder los 30 caracteres.
Tipos de Subrutinas
- Internas: cuando al subrutina esta dentro del mismo programa que la llama
- Externas: cuando la subrutina esta en un programa distinto al que la llama como ser un include
Subrutinas Internas
Se generan en un bloque FORM-ENDFORM. Para pasarle datos hay que escribirlos a la derecha de la palabra PERFORM, dichos datos se llaman parametros actuales. Los parametros pueden ser de 3 tipos:
- de entrada: cuando se utilizan para pasar datos del programa principal a la subrutina
- de salida: cuando se utilizan para pasar datos de la subrutina al programa principal
- de entrada/salida: cuando se utilizan para pasar datos en ambos sentidos
paso de parametros a las subrutinas
Para pasar paramatros usamos: USING, CHANGING y TABLES (en ese orden). de la siguiente manera:
PERFORM subrutina TABLES <tabla de salida>
USING <parametro de entrada>
CHANGING <parametro de salida>
En el bloque FORM-ENDFORM debemos especificar el tipo de los parametros formales (parametros definidos en la subrutina, son llamados ficticios tambien). En el siguiente ejemplo vamos a pasar una tabla interna, una variables y una estructura
DATA: ti_vuelos LIKE STANDARD TABLE OF sflight,
st_vuelos LIKE LINE OF ti_vuelos,
v_flag TYPE sy-subrc.
FORM procesar_datos TABLE t_vuelos STRUCTURE sflight
USING st_vuelos STRUCTURE sflight
CHANGING p_flag TYPE sy-subrc.
ENDFORM.
PARÁMETROS ACTUALES
Son los parámetros de entrada y de salida definidos en el programa principal, a la derecha de la palabra reservada PERFORM.
Estos parámetros están definidos en el programa principal como variables, ya sea variables locales o variables globales.
Así como existen los parámetros actuales, también existen los llamados "Parámetros formales" que son aquellos que se encuentran especificados dentro de la definición de la subrutina en FORM-ENDFORM.
Cada parámetro formal y su correspondiente parámetro actual deben ser del mismo tipo pero pueden tener diferentes o iguales nombres.
Son los parámetros definidos en la subrutina, a la derecha la palabra reservada FORM.
También se los conoce como "parámetros ficticios" ya que son variables locales que se declaran en la cabecera de la subrutina, en las cuales se almacenarán:
Los datos de entrada que se le proporcionen a la subrutina en la llamada.
Así como, los datos de salida que se devolverán al subprograma llamante.
Y también, los datos de entrada y salida.
NOTA: cuando una subrutina es llamada, los parametros deben ser pasados en el mismo orden el fueron declarados.
Formas de pasar parametros:
- Paso de parámetros por valor: en donde si se modifica un parámetro formal dentro de la subrutina, esta modificación no afecta al parámetro actual fuera de la subrutina.
DATA: v_f1(1) TYPE c VALUE 'B'.
PERFORM paso_por_valor USING v_f1.
WRITE v_f1.
FORM paso_por_valor USING value (pf1). "notar que v_f1 y pf1 son diferentes pero como estan en el orden
pf1= 'x'. "correcto, ABAP los identifica como igual al pasarlo a la funcion
ENDFORM.
"Al ejecutar esto, la salida será B. - Paso de parámetros por referencia: en donde si se modifica un parámetro formal dentro de la subrutina, afectan al parámetro actual fuera de la subrutina.
DATA: v_g1(1) TYPE c VALUE 'A',
v_g2(1) TYPE c VALUE 'B'.
WRITE v_g1 , v_g2. "antes de pasar a la subrutina
PERFORM paso_por_referencia USING v_g1
CHANGING v_g2.
WRITE: v_g1 , v_g2. "despues de pasar por la subrutina
p_g1 = p_g2 = 'X'.
ENDFORM.
"la salida sera A B X X. - Por valor y por resultado:
DATA: v_h1(1) TYPE c VALUE 'A',
v_h2(1) TYPE c VALUE 'B'.
PERFORM paso_por_valor_y_resultado USING v_h2
CHANGING v_h1.
WRITE:/'H1 es:', v_h1.
FORM paso_por_valor_y_resultado USING value (p_f2)
CHAGING value (p_f1).
p_f1 = p_f2.
ENFORM.
"y la salida será H1 es: B.
Subrutinas Externas
Son subrutinas que se encuentran en programas distintos al que estamos procesando. Se las llama asi:
PERFORM <sub>(<programa>) USING...
Ó tambien:
INCLUDE <report>.
 
 
 
Sobre el autor
Publicación académica de Pedro Rocabado, en su ámbito de estudios para la Carrera Consultor ABAP.
Pedro Rocabado
Profesión: Programador - Argentina - Legajo: FD33T
✒️Autor de: 26 Publicaciones Académicas
🎓Egresado del módulo:
Disponibilidad Laboral: FullTime
Presentación:
Pretendo obtener conocimientos suficientes sobre sap abap para trabajar sobre este sistema y perfeccionarme con el tiempo. me siento entusiasmado con esta plataforma y espero estar a la altura.
Certificación Académica de Pedro Rocabado